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IF SWAPPING DISKS 

ISN'T YOUR IDEA OF 

STAYING IN SHAPE . 



Radio Shack's new Double- 
Duty utility gives your Model 4 
the muscle of two computers 
and makes disk-swapping a 
thing of the past! 

Partitioned Memory 
Saves Time and Effort 

Just load DoubleDuty when 
you begin work, and throughout 
the day it improves your Model 
4's performance by dividing the 
128K memory into three inde- 
pendent units. 



Two 64K partitions operate 
like separate computers. Load 
both with software designed for 
a 64K system and work with ei- 
ther program without reloading. 
The third partition allows you to 
perform TRSDOS library com- 
mands without exiting. And 
DoubleDuty does all this without 
a permanent— or expensive- 
change to the Model 4's 
memory! 



Get the Most from 
Your Model 4 

Once DoubleDuty frees you 
from time-consuming disk swap- 
ninn vnii'll rffauyiuar that umi 



can accomplish more at the 
computer in less time. 

Just think of the advantages 
of having the new- Profile^ 4 
Plus filing system and Super- 
SCRIPSIT* word processing 
loaded at the same time. You 
could prepare business reports 
faster than ever, moving to the 
Profile data files for recent 
figures and returning to Super- 
SCRIPSIT without reloading 
your disks. 
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...GIVE YOUR MODEL 4 
NEW DOUBLE-DUTY 
AND TAKE IT EASY! 



Introducing 
Profile 4 Plus 

Our new Profile 4 Plus 
(26-1635, $249.95) makes ad- 
vanced data base management 
available to Model 4 owners. It's 
based on the same powerful 
system already used by 
Model 12 and Model 16 users. 
Profile 4 Plus offers you plenty 
of options for data manipulation, 
so you can personalize your fil- 
ing system. 

Add Model 4 
Word Processing 

Add SuperSCRIPSIT 
(26-1595, $199.00), and your 
Model 4 becomes an advanced 
word processor with multiple ed- 



iting features that let you delete, 
insert and move blocks of text 
easily. SuperSCRIPSIT supports 
proportional-spaced printing, 
multiple line spacing, underline, 
boldface, super and subscripts, 
multiple columns, 80 x 24 dis- 
play and reverse video to aid in 
editing. 

See All Three Today 

Visit your nearest Radio 
Shack Computer Center and 
see how easy it is to build on 
your Model 4's potential with 
DoubleDuty and advanced 
Radio Shack software. 



Radio /hack 

The Technology Store 

A DIVISION OF TANDY CORPORATION 



Double Duty requires 128K Model 4 All other 
programs require 54K Model 4 Prices apply at 
participating Radio Shack Computer Centers and 
at participating Radio Shack stores and dealers 




v» 



9t>* 



«* 



A »ce« i«a 



The 

PRODUCER 



PRODUCER 

The Professional Program Writer. 



YOU CAN MULTIPLY YOUR PRODUCTIVITY 

WITH THIS SENSATIONAL SOFTWARE BREAKTHROUGH 

Beginners can now program with no experience necessary. 

Professional programmers now have a tool to save days and weeks of time. 



THE PRODUCER 

WRITES CUSTOM PROGRAMS 

FOR YOU! 

Why buy expensive Data Base 
programs that are only half effective and 
require the original Data Base system disk 
to run the finished program 7 The 
Producer is a Program Generator that can 
create the exact programs you want. 

You don't need any previous 
programming experience since The 
Producer writes all the code for you. And 
when the program is finished, it runs 
without the support of the original 
Producer system disk. 



What Kind of Programs 
Can The Producer Write? 

With the Producer you can create 
impressive, sophisticated and functional 
software to manage your data The only 
limit is your imagination. You can quickly 
and easily create programs to manage 
such things as mail lists, personnel 
records, inventory control, library 
catalogs, loan calculations, personal 
finances, and maintenance schedules. 

You may never again need to buy a 
canned program to perform a needed task 
related to data storage and retrieval. The 
Producer can write all those programs for 
you. including the capacity to do all 
standard calculations and to generate 
both on-screen and printed reports. The 
f reeform report generator even allows you 
to design reports on your preprinted 
forms. 

How Does The Producer Work? 

The Producer itself is a sophisticated 
program based on years of research and 
development. But The Producer was 
written with the end user in mind and the 
program generation process is quite 
simple. 

You can begin by using a planning form 
designed to help you organize your 
program ideas. The Producer then asks 
you a series of simple English questions to 
enable those ideas to be translated into a 
program format. You use the computer's 
arrow keys and graphic characters to 
draw the data entry screen just the way 
you want it. 



Then with the press of a button, the 
program generator takes over and does all 
that complex coding for you in a matter of 
minutes The result is a complete 
program, capable of running by itself. 
That means your customized programs 
may be used independently of The 
Producer (A feature not possible with 
Data Base creations.) You may duplicate 
your Producer generated programs and 
even sell them for others to use. without 
paying royalties 

How Difficult 

Is The Producer 

Process to Learn? 

The Producer software package makes 
learning simple. An easy to follow tutorial 
takes you through each step of The 
Producer process as you sit at the 
computer. (This includes audio cassette 
tapes with the Model l/lll versions.) This 
hands-on experience not only teaches 
you the process but allows you to create a 
program of your own design while you 
learn The tutorial is all you need to get 
started 

Later, if you have need for more specific 
information, you can turn to the fully 
indexed Producer Reference Manual. The 
200 pages of documentation cover 
virtually any question you may have so 
you will never be left guessing what to do 
next. The Producer package also includes 
a quick reference card to streamline your 
program operation and. should you ever 
need technical assistance, you may call a 
Producer Software technician for free 
counsel and trouble shooting 



Is It True That I Can 

Both Create and Edit 

At Will With The Producer? 

Yes' Unlike most other program 
generators, The Producer gives you 
complete freedom to design the screen 
any way you wish Experiment, rearrange, 
"cut and paste" between trial screens 
That's the kind of versatility you get. And 
even after your program is complete, you 
can change your mind With The Producer 
you can edit and refine finished programs 
without starting over That's a real time 
saving. 

What Are Some Other 

Outstanding Features 

Of The Producer? 

• Our B-Tree file structure gives extremely 
fast access to data, allows global search 
and replace, data entry by batch mode and 
automatic file rebuilding. 

• The Screen Generator is the best 
anywhere at any price and gives full 
screen control including graphics. You 
can add, insert, ordelete. and move blocks 
of text on screen and between screens 

• All math calculations are supported 
including subtotals and global 
recalculations 

• The Freeform Report Generator gives 
you an amazing versatility to design text 
placement, interfield calculations, and 
formats. You can even print reports on 
your standard forms. 

• The Producer package also includes a 
free Home Inventory program and a one 
year subscription to The Producer 
Newsletter 



The Producer 
$199.95 

Available now for TRS-80 
Models I, III, IV 

Ask about DATA SHUFFLER, 
New Sort/ Merge Program $34 95 

„ n Order toll free: 

1-800-433-5355 
Texas 817 274-6998 




Producer Software. Box 1245. Arlington. Texas 76004 



(Jwning a computer program that writes programs for you 

may seem like a science fiction dream. 

But tnat's exactly what The Producer does. 

You can now enjoy professional quality programs, 

custom written for your specific needs! 



Here's a sampling of what Producer users are saying: 



"This program has paid (or itself over 
and over." People tell us this 
repeatedly First time computer users 
have successfully been able to 
generate programs with The Producer 
that rival the professional quality of 
programs available through 
commercial sources. 

Then- are only two things vou need 
to say .ili< >nt The Producer: it's easy lo 
use and it's powerful!" The woman who 
told us this had used several 
computers before but had no 
programming experience Now she is 
saving time, money and effort by 
creating the programs she needs for 
her office 

Owning The PRODUCER is like 

having a professional programmer on 
call-24 hours a das. I particularly like the 
fact that if I design a program to do a 
specific joh todas, and later discover it is 
inadequate lo my changing needs, I can 
r e g e n e r a t e the program with 
corrections in a matter of minutes. 
Thats right The PRODUCER gives 
you the ability to edit or expand your 
programs in any way you choose 

The screen generator alone is worth 
the price! I created a professional data 
entry screen in minutes just after 
opening the package." With our screen 
generator, you are the artist and you 
are never locked into what someone 
else has designed for you 

Hovs did I ever live without it." This 
often heard quote comes from 
experienced programmers who are 
now using The Producer to generate 
programs in a fraction of the time it 
previously took to them to write 
programs 



"The Freef orm Report Generator is an 
amazing feature. I never thought a 
product like this could give me the 
ability to get reports on my preprinted 
forms, but The Producer does it all." 
Yes. you can put the text anywhere on 
the page you want, do up to 100 
interfield calculations, etc And the 
Freeform is now a part of The 
PRODUCER package. 




OTHER QUOTES 

FROM PRODUCER USERS 

The PRODUCfcR package I received 
was excellent. The finest software 
package I have ever purchased. Far 
beyond my expectations." 

S.R. Foster. Pensacola. Florida 

I'm in love with The PRODUCER. It's 
one of my favorite programs." 

R Selsback. Burlingame. California 

The value of the deal, everything 
included, was the best I've seen to date.' 

G Slusher, Martin. Kentucky 

"Excellent! Above and beyond other 
software." 

R Hapgood, Henrietta. Texas 



The PRODUCER is the best all 
purpose program generator I have used. 
(We have tried almost all of them). The 
generated code is bug free, well 
commented and efficient." 

A Copella. Northbrook. Illinois 

This is by far my number one 
software and I will use it anywhere and 
everywhere I possibly can, both 
personal and in business." 

R.A Neuman, Okemos, Michigan 



"The program I created with The 
Producer meets my needs exactly and I 
ran change it easily as different 
conditions require. You can't do that 
vsith other software.' 

Neal Bloomenfader 

"One of the best I've seen. We write 
about 20 volumes of material per year. 
Take it from a pro, it's good." 

J Crespi. Sherman Oaks. California 



Thank you for an excellent program. 
I agree that The PRODUCER will change 
the entire concept of program creation 
in the future. But for now, you stand as 
the best data base management system I 
can buy." 

E Sung. Vancouver. B.C. 

I think The PRODUCER will make 
the software hackers upgrade their 
products to this high level quality of the 
PRODUCER. I'm sure you realize that 
there is a lot of garbage on the market.' 
D J Smith, Lombard, Illinois 

"The Producer is among the best 
systems I have used in ten years of 
professional data processing." 

Dennis R CutshaM, APO NY 



New from Producer Software 
THE DATA SHUFFLER $34.95 

All purpose Sort/Merge program 

Many of you have been asking for it, so here it is With Data 
Shuffler you can perform powerful sort and merge functions in 
conjunction with your data files • Sorts up to 32767 Records • 
Sorts key size up to 256 bytes • Does up to 9 sort keys in 
ascending and/or descending order • Includes a complete sort 
parameter builder program, etc 

Data Shuffler is available now for TRS-80 Models I. Ill, and 4 
Call us to place your order for immediate shipment 



The PRODUCER 

The Professional Program Writer „ 7 6 

TRS-80 Model I Version 
TRS-80 Model III Version ClQQ QZ 
TRS-80 Model IV Version ▼ JZJ*?sJ 

(including Model 4-P) 

1 -800-433-5355 Texas (817) 274-6998 



We accept money orders, cashiers checks. VISA. Master Card and American Express 




FASTER speeds up most TRS-80 
BASIC programs by 20-50%. It 
analyses programs while they run, 
then displays a simple change to 
sequence variables so the ROM will 
find them faster 

You can use FASTER to speed up 
programs you've bought as well as 
programs you've written 
"If you . . . would like a significant 
increase in the run-time speed, then 
buy FASTER" 

80 MICRO (April, 1982) 

Models I & III, 16-48K Tape 

or Disk, all DOS's. $29.95 




RPM TO THE 
RESCUE 




Find out if your drives need adjust- 
ment before you begin to lose files 
SAVE on repair bills This easy-to-use 
program measures the rotational speed 
and fluctuations of your disk drives, 
and warns you if they are running too 
fast, too slow, or unevenly. 
80 MICRO (April, 1982) said: "If your 
drives have problems I recommend 
RPM before paying to get it repaired " 
Customers agree: 

"EXCELLENT - Has paid for itself 
already! Saved the cost of Radio Shack's 
doing the speed adjust!" (D.M.) 
Models 1, 3 and 4 (in 3 mode) We 
suggest you order a copy before you 
need it 

RPM $24.95 " 2 



ORDER NOW, TOLL-FREE 
(800) 824-7888, oper. 422 



PRO 



Dept. G. Box 560, No. Hollywood, CA 91603 
(618l 764-3131 Intwmatton and Same-Day Processing 
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CUT YOURSELF 
LOOSE WITH 
TR ASHMAN 




THIS PROGRAM IS A MUST FOR 
EVERYONE WHO USES "BASIC" 
ON A TRS-80. It reduces string com 
pression delays by 95% or more You 
suffer from these delays whenever you 
run a BASIC program Yourcomputer 
locks up lor seconds, or minutes, and 
you may even think it's "crashed 
TRASHMAN FIXES THE PROBLEM 1 
As soon as you start to use it. those 
delays will almost disappear. The pro- 
gram is very easy to use, so you don't 
have to be a computer programmer to 
take advantage of it It's written in 
"machine languageand uses only 578 
bytes of memory for itself, plus 2 bytes 
for each "string" in your program It 
works with other machine language 
programs and all the major operating 
systems 

IT SHOULD HAVE BEEN BUILT 
INTO THE COMPUTER IN THE FIRST 
PLACE, but since it wasn't, look at this 
chart, and then order your copy today 



# 


SECONDS DELAY 


PERCENT 


STRINGS 


NORMAL 


TRASHMAN 


IMPROVEMENT 


10 


.1 


.1 





250 


11.8 


7 


94 


500 


458 


1 6 


96.5 


1000 


179.6 


35 


98 


2000 


713.2 


7.8 


98.9 



". . . in those programs that use hundreds 
of strings arrays, the time saved is out- 
standing." 80 MICRO, Ian. '83 
Works great, had 45 sec. delays in 
printing, now almost no delays. D.T. 

"We have installed TRASHMAN in 
one of our most major programs and it 
has reduced the run time by over 
one-third! A.W.L. 

TRASHMAN is available on Disk 
for the TRS-80 Models I & III for 
just $39.95 ^i 
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Boost the power and convenience of Model 4 Scripsit with this 
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Why pay for the higher-priced spread? This full-featured 
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matrix printer. (Models I. m. and 4; Load 80) 

112. Patch Work by Andy Levinson 

Thirteen patches to mend the holes in TRSDOS 1.3. (Model HI) 
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Indexed random -access files give you the benefits of direct ac- 
cess without wasting space. (Models I and III: Load 80) 

1 16. Formula Solutions by Mike O'Neal 

Get to the root of cubic, quadratic, and linear equations. (Models 
I. m. 4. 1000. and 2000; Load 80) 
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Load 80 gathers together se- 
lected programs from this is- 
sue of 80 Micro and puts them 
on a magnetic medium for your con- 
venience. It is available on tape or disk, 
and runs on the Models I, HI. and 4. 

If you own a tape system, load the 
Load 80 tape as per the instructions pro- 
vided. If you own a Model I or III disk sys- 
tem, boot the Load 80 disk and transfer 
the files to a TRSDOS system disk ac- 
cording to simple on-screen directions. If 
you own a Model 4. you must convert the 



programs from Model ffl TRSDOS to 
Model 4 disk using the Model 4 CONV 
command. 

Not all programs will run on your sys- 
tem. Some Model III programs, for In- 
stance, will run on the Model 4 in the 
Model III mode, but not in the Model 4 
mode. You should check the key box 
that accompanies the article to find out 
what system configuration individual 
programs require. 

If you have any questions about the 
programs, call Keith Johnson at 603- 
924-9471. Yearly subscriptions to Load 
80 are $199.97 for disk, or $99.97 for 
cassette. Individual loaders are available 
on disk for $21.97 or on cassette for 
$11.47. including postage. Direct sub- 
scription problems or orders for Load 80 
to Lori Eaton, c/o 80 Micro, 80 Pine St. 
Peterborough. NH 03458. 
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FastBa* 

Article: Running Like the Wind (p. 42) 
System: Models I and m, 32K RAM. 
Language: Basic 

An updated version of 80 Micro's 
Basic compiler. 
Cassette fllespec: B. C. D. E 
Disk fllespec: FASTBAS/BAS. LIST2/BAS. 
LIST3/BAS. PONG/BAS. 

ScrlpAld 

Article: Model 4 Scripsit the Write Way 

(p. 60) 

System: Model 4. 64K RAM. one disk drive. 

language: Assembly/Basic 

An enhancement package for Model 4 
ScrtpatL Disk fllespec: ENHANCE/OVL 
(system). REKEY/OVL (system). 
PRTDRIVE/BAS. HELPBLD/BAS. Requires 
editor/assembler. 

NovaCalc 

Article: NovaCalc (p. 82) 

System: Models I and m. 48K RAM. 

one disk drive. 

Language: Basic 

A Basic spreadsheet program. 
Disk fllespec: NOVACALC/BAS. 

Graphics 

Article: Picture Perfect (p. 96) 
System: Models I. ED. and 4. 16K RAM. 
Language: Basic 

Create your own graphics characters on 
your Radio Shack dot-matrix printer. 
Cassette fllespec: J. K. L. M. N. O. P. 
Disk fllespec: GRAPAPER/BAS. 
CHARGEN1/BAS. CHARGEN2/BAS. 
STRINGS3/BAS. SUBGRAF4/BAS. 
SUBGRAF5/BAS. SUBGRAF67BAS. 

Random Files 

Article: On the Record (p. 106) 
System: Models I and HI. 32K RAM. 
Language: Basic 

Three programs that create and read 
random-access disk flies. 
Cassette fitespec: G. H. 1. 



Disk fllespec: RANDISKU/BAS. 
RANDISK1/BAS. LOOKDISK/BAS. 

Cable 

Article: Formula Solutions (p. 1 16) 
System: Model I and m. 16K RAM cassette. 
32K RAM disk: Models 4. 1000. 1200. 64K 
RAM, one disk drive. 
Language: Basic 

Programs for solving cubic, quadratic, and 
linear equations. 
Cassette fllespec: Q, R 
Disk fllespec: CUBIC 1/BAS. CUBIC3/BAS. 
CUBIC4/BAS. 

Interrupt 

Article: Project 80 (p. 120) 
System: Models ID and 4. 16K RAM 
Language: Assembly 

Demonstration program: How to use the 
8259 A interrupt controller with the Project 
80 general-purpose IAD board. 
Cassette fllespec: INTRPT (source code). Re- 
quires Apparat editor/assembler. 
Disk fllespec: INTRUPT/SRC (source code). 
Requires Apparat editor/assembler. 

BB8 

Article: BBS Express (p. 132) 

System: Model HI. 48K RAM. two disk drives. 

Language: Assembly/Basic 

A routine for locating message numbers. 
Cassette fllespec: BBS 1 /(source code). S. 
Source code requires editor/assembler. 
Disk fllespec: BBS1/SRC (source code), 
BBS2/BAS. Source code requires 
editor/assembler. 
Demo 

Article: The Next Step (p. 140) 
System: Model 01. 32K RAM. one disk drive. 
Language: Assembly 

Demonstration program to create a b e ep 
generator. 

Cassette fllespec: DEMOl. DEM02. DEM03 
(all source code). 

Disk fllespec: DEMOl/SRC, DEM02/5RC, 
DEM03/SRC (all source code). Requires 
Apparat Editor/assembler. 
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in/cuwitqu* Golflrn i Apple] and OPC IBM): Cermany'a Cornputrr- 
■aarrar. Mrracorruadffurft. PC Well Software Marat. CW Cdf- 
adrwSrmlrtar. Computer Business and Commodore Moonztne: Italy s 
Cornpubrruiorfd Un a: a. Japan's Cornpuareuiorkf Japan and Perso Com- 
World, Memos s Co>nsuieru>oridrMe.cico 



aaada CW Bmraur and aHrraVyb Norway » Conututrrurorld Morar 
and arUrwOslo. Saudi Arabia's Saudi Con u ai mea i d . Inigapnri s The 
Asian Compusenuorkt Sf^ssn'sCompulcniwrktCBpnna and 
Mk-roStsfernas. Sweden's CornpuarrSuwden. MlaroDatom and Mln 
l a ri ia s U a j i. the UK's Computer Manooenwni and CompuarT fsusiness 
Europe, the U S ' Camputrruorfd. HOT CoCo. inOran-. IrdbsYarat afcsr- 
World Mlrro Marssnwsal. PC World. Run. 73 Mouraune and 6X1 Micro 



Probhtmt with Subterlptlons: Sand • deecriptlon of the prob- 
lem and your current anoVor most recent addraaa to: 60 Mtero, 
Subacflptlon Department, P.O. Box 981, Fermlrtgdale, NY 
11737. 

Probhm* with Load 80 Circulation- Addraaa ccrTeapondencs to 
Lori Eaton. 10 Plna St.. Petertx>fOu»h, NH 03466. 
Probttmt with AoVwtfaars: Sand a description of tha problem 
and your currant addraaa to: 60 Macro, PA. 101 6 Elm Street, 
Peterborough. NH 03458. ATTN- Rita B. Rtvard. C^tomer Ser- 
vice Manager. H urgent, call 1 -800-44 1-4403. 
Chang* ol Addons. Send o<d label or copy o( old adorns end 
new addraaa to: U Worn, P.O. Box 881. F»rmlnod»k,. NY 
11737. Please give eight weeks advance notice. 
Microfilm: This publication is e re h able In microform from 
University Microfilms intemallonai. Untied States addraaa: 300 
North Zsab ftoed. Oept. PR, Ann Arbor. Ml 48108. Foreign ad- 
draaa: 18 Bedford Row, Oept. PR.. London, WC1R4EJ. 
England. 

Oeeasrs. Contact Ralno Wi rein. Retail Sal at Manager, to Wen. 
Pine St, Peterborough. NH 03498. (BOO) 3434)728. 
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The Disk Virtual Sort 
Utility for the Model 4/4P! 



Einally, the utility many of you have been asking for — a versatile Disk Sort utility for the Model 4. DSM4 is a high speed, disk 
ual sorting utility which eliminates the burden of sorting from your applications software. DSM4 will create and maintain 
index files for you. Since the sort is disk virtual, your only limitation is the amount of available disk space, not available memory. 
DSM4 can sort almost any type of field in a file. The length of each field may be up to 253 bytes. The field types that DSM4 will 
handle include compressed integer, single precision and double precision fields, in addition to ASCII data. Single and double 
precision numbers may be in the format used by Model 4 Microsoft BASIC, or may be in 'C floating point format (as implemented by 
Manx AZTEC 'C'). 

With DSM4, disk files can be up to 65535 logical records, with an LRL of 1 to 1024 bytes. You may specify up to 24 select fields to 
determine which records will be included in the sort. Any type of relation (e.g. equal to, less than, greater than or equal to, etc.) may 
be applied to your selection criteria. In addition, logical operators (AND OR) may be used. For instance, "sort by Zip all people with a 
last name of either Smith or Jones". Additional fields may also participate in the sort. Example: sort in Zip Code order and 
alphabetically within the same Zip Code. 

Sorting may be in either ascending or descending order. DSM4 may be instructed to skip records that match a user specified "deleted 
record" value. You may also save a "template" of the sort select specifications to disk, and control DSM4 with JCL. 

Perhaps the most impressive feature of DSM4 is the speed of the sort operation. Compare these statistics to the sorting method you 
are currently using: Select, sort and create an index of 1000 records. Selecting and sorting on a name, zip code, and two double 
precision fields (41 characters) will take under 30 seconds from floppy disk, under 20 seconds on hard disk. . 



plus shipping and handling 



OVERDRIVE 



Get That EXTRA BURST 

of Performance With 
Dynamic Track Buffering! 



7 he OVERDRIVE utility from LSI gives you that extra burst of speed from your 128K Model 4 or 4P. OVERDRIVE 
dynamically buffers tracks on up to two disk drives in your system using your alternate memory. This can add up to as much as a 
several hundred percent speed increase in disk I/O. Also, OVERDRIVE places all the system overlay modules (1-5 and 9-12) in 
alternate memory for almost instant access. All this is done in just 32K of your alternate memory, so you can still use the system 
Spooler or memDISK if you desire. 



Some typical speed increases: 

FED II search a 28K file 
Load a 4K BASIC program 


Without OD 

47 seconds 
23 seconds 


With OD 

- Sei onds 

15 seconds 


Increase 

490 ■ 

:.;■■ 



Note: TRSDOS 6.2 is required but not included. 



$99 



Prices and »p«c<i>cM>ons tubtiO to crwiot without notic* 



plus shipping and handling 



OGICAL 

SYSTEMS 8970 North 55th Street 

INC. PO. Box 23956 

G>0£>c= Milwaukee, Wl 53223 



TOLL FREE ORDERLINE 
(800) 248-3535 

For information (414) 355-5454 



Write or call for our 
FREE CATALOG 



SIDE TRACKS / by Eric Maloney 



Tandy Charts a 
New Course 



I've recently heard some complaints 
from long-time TRS-80 owners that 
Tandy is selling out by stepping into 
the MS-DOS market. They're disgust- 
ed by what they see as a * 'me-too' ' phi- 
losophy, and nostalgically think back 
to the Model I days when Tandy was a 
pioneer in the industry. 

I have to disagree. The Models 
1000, 1200, and 2000 do not indicate a 
sell-out, but a recognition by Tandy 
that it cannot survive, let alone thrive, 
outside the mainstream. 

It's easy to get sentimental about 
the Model I. But this sentimentality 
has clouded some people's perceptions 
of Tandy's role in the microcomputer 
market. They think that because Tan- 
dy was one of the first, it therefore 
should be at the forefront of new and 
creative technology. 

History says otherwise. Through 
the years, Tandy's success has depend- 
ed on effectively packaging proven 
technologies. It has shown a remark- 
able propensity for cashing in on 
whatever electronic consumer product 
happens to be hottest. It did so with 
stereos. It did so with CBs. And most 
recently, it is doing so with telephones. 

In all cases, Tandy's strategy was to 
make an inexpensive product, sell it by 
the truckload through its Radio Shack 
retail chain, and provide convenient 
after-sale support. The company's 
method for selling computers is essen- 
tially the same. 

You could argue that at some point 
in the distant past, Tandy could have 
aggressively established its Z80 com- 
puters and TRSDOS operating system 
as de facto industry standards, as Ap- 
ple and IBM eventually did with their 
products. But that would have been 
asking the company to be something it 
was not. 

Staying with its proprietary DOS 
would spell the end of Tandy as a mi- 
crocomputer manufacturer. It would 
be like selling stereo systems that don't 
play 12-inch records. So let's not 




mourn the decline of the Z80 comput- 
er, but instead be thankful that Tandy 
had the good sense to join the rest of 
the world. 

1985— The Comeback Year? 

1985 could very well be the most im- 
portant year in Tandy's history, for it 
will reveal whether the company can 
reestablish itself as a vigorous partici- 
pant in the microcomputer market- 
place. The three key factors are how 
well the Model 1000 does, how well 
Model 4 sales hold up, and how well 
Tandy can impress itself on the con- 
sciousness of the buying public. 

My gut feeling is that the 1000 is go- 
ing to do well. This is the type of ma- 
chine Tandy does best: inexpensive 
and expandable. The company should 
sell a good many just to its current 
user base. Model I/III and Color 
Computer owners in particular should 
see the Model 1000 as their chance to 
enter the MS-DOS market at a 
reasonable price. If Tandy can also 
reach businesses that want a cheap 
alternative to an IBM PC or want to 
add to their current installment of 
PCs, the 1000 could become the com- 
pany's all-time best seller. 

How quickly the 1000 market devel- 
ops is another matter. This is where 
the Model 4 comes in. Tandy must 
continue to sell the system during the 



transition to MS-DOS. To do so, it 
must sell the machine creatively, by 
further reducing the price, bundling 
software, and adding enhancements. 
(For instance, the company might ex- 
tend the 4's life if it could get Zilog's 
16-bit Z800 in quantity.) 

Lastly is marketing, which in Tandy's 
case means getting more visibility. The 
issue of Tandy's image has been beaten 
to death with a tire iron, and rightfully 
so. The Model 1000 is Tandy's chance 
to put all that criticism to sleep. 

Tandy is finally realizing that selling 
TRS-80s is not the same as selling 
stuffed-animal radios and batteries. 
The computer marketplace is highly 
competitive, and exposure is critical. 
Unfortunately, Tandy's machines do 
not get the shelf space, and therefore 
the visibility, in retail stores that other 
systems do. 

The beauty of the 1000 is that it can 
create its own visibility. While the ma- 
chine won't be in non-Radio Shack re- 
tail stores, its software will. Further- 
more, computer magazines will have 
to reckon with the 1000 when discuss- 
ing MS-DOS machines and IBM 
clones. All Tandy needs to do is prime 
the pump with an intelligent advertis- 
ing and promotion campaign. 

Marketing the Model 4, on the 
other hand, is going to present prob- 
lems. It has become machina non 
grata in the computer industry. Take, 
for instance, a recent cover article in 
Personal Computing comparing the 
Apple lie and the IBM PCjr. The 4 is 
lumped with the Kaypro in a couple of 
throwaway lines, and dismissed as 
having "inferior graphics/color capa- 
bilities, very little entertainment or 
educational software and very little ex- 
pandability." Considering the 4's 
price, power, and software base, it de- 
serves more respect. 

All in all, Tandy has reason to be 
guardedly optimistic. If it plays its 
card right, this could be the year the 
company makes its comeback. ■ 
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These were printed by DOTWRITER on an Epson MX-80. 

See What You Can Do With. 
DOTWRITER 4.0! 

Now available for the Model 4, too! 



DOTWRITER lets you create 
spectacular, eye-catching 
letterheads, catalogs, invita- 
tions, or even books. It is just what 
you need to turn your dot-matrix print- 
er into a versatile typesetting ma- 
chine. And it's available for the Model 
4 (yes. in native mode) as well as for 
the Models I and III. 

What is DOTWRITER? 

DOTWRITER uses the "bit-im- 
age graphics" ol your printer to 
produce the kinds oi stunning re- 
sults shown inside the box. It is a 

full-function text printing program, so 
you can inter-mix different character 
sets, do centering, paragraphs, pagi- 
nation, magnification, draw horizon- 
tal and vertical lines, reversals (white 
on black), and even print right-justi- 
fied proportional text. 

DOTWRITER includes the printing 
program, complete documentation, 
and fourteen useful sets of typefaces 
(60 to 90 characters in each set). We will 
also give you the 105-page Letterset 
Reference Catalog free with your 
order. 

To use DOTWRITER, just write your 
text with any popular TRS-80 Word 
Processor, add the necessary format- 




ting commands, and DOTWRITER will 
do the rest. 

25 more disks are available 
separately. Each 
has 3-12 complete 
typefaces (60-95 
characters in 
each set). 
These disks cost 
less than S25 eacl 
and may be pur- 
chased at any tin 

II you want to create your own 
logos, modify our typefaces, or even 
design entirely new typefaces, then 
you will also want to order the "Letter- 
set Design System" (LDS). We offer LDS 
at half-price when you order it along 
with DOTWRITER. LDS operates in 
Model III mode on the Model 4. 

Versions are available for Epson MX-80 
with Graftrax, MX-100 with Graftrax-Plus, 
RX-80, FX-80, C. ITOH 85101550, Microline 
84/92/93; Radio Shack's DMP series 200- 
2100, CGP-220 & Gemini 10X, 15X. Please 
specify printer and computer! 

Our print samples were done on an Ep- 
son. Sizes vary on other printers. Some of 
the samples shown here are taken from the 
additional Letterset disks. 

Two disk drives and at least 48K of mem- 
ory are required. LDS is not available in 
native Model 4 mode. 



Send for free print samples! 

We've only shown you a few of the 180 
DOTWRITER fonts. If you want the best 
in graphics printing, we suggest you 
order DOTWRITER today, toll-free. 

Please specify printer and computer 
when ordering. 



DOTWRITER 

(Models I, III) $79.95 

DOTWRITER (Model 4) 99.95 
Letterset Design System 39.95 
Special: DOTWRITER 

and LDS 99.95 

Additional Letteiset 

disks (4-12 per disk) 

17.95 and 24.95 
Letterset Reference 

Catalog 10.00 



ORDER NOW, TOLL-FREE 
(800) 824-7888, oper. 422 
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Depl. C. Box 560, No. Hollywood. CA 91603 
(81B| 764 3131 Information and Same-Day Processing 

TERMS VISA MC checks COO P ease add S3 00 shipping 
in US or Canada SI 5 00 overseas sales taxmCa 
Mosi cdeis tilled wthn o'ie day 




The Premier Word Processor for 
Your TRS-80 Model I, III, or 4 




We are proud to offer you 
the one Word Processor 
that will satisfy all your 
writing needs: ALLWRITE. It sets 
new standards for text editing and 
printing, and will give new life to 
your TRS-80. Let us tell you why. . . 
In an attempt to push the public 
into expensive 16-bit computers, many 
manufacturers have been saying that 
the TRS-80 is obsolete. The truth is that 
the software, not the hardware, makes 
the difference. And the best word proc- 
essor of all is now available only on 
the humble TRS-80, not on those ex- 
pensive 16-bit machines! 

ALLWRITE is based on the proven 
methods that made NEWSCRIPT the 
most popular independently produced 
TRS-80 word processor, but it also has 
the speed and new features our cus- 
tomers have asked us for. ALLWRITE 
will save you time and let you produce 
the highest-quality, most professional- 
looking letters, term papers, and re- 
ports available on a micro-computer. 

Allwrite Can Save You Time! 

Reads a 25,000 character file (10 
printed pages) from disk in SIX SEC- 
ONDS... does a global search-and- 
replace in FOUR SECONDS . . . outruns 
even the fastest popular micro-printer. 



ALLWRITE'S Screen 

Handling Makes Word 

Processing Easier 

Than Ever 

Change text width at any time; 
wide lines shift left and right as you 
type. ALLWRITE preserves double- 
blanks between sentences, uses the 
entire screen for text, and displays a 
complete Status Screen at the touch of 
a key. Scroll by line, partial screen, full 
screen, to top or end of file, or to any 
marked point. Move cursor by charac- 
ter, word, tab, line, or screen. 

You can set and change on-screen 
tabs and store them on disk. The print- 
time tabbing features are incredibly 
versatile: they allow left, right, and 
centered tabs, and even line up your 
decimal points. 

ALLWRITE shows you where you 
forgot to turn off underlin- 
ing, boldface, italics, or 
double-width. Special on- 
screen Preview feature 
shows page breaks and 
page layouts . . . including 
underlining and boldface 
. . . without annoying blink- 
ing or screen flicker. In 
"Summary" mode, ALL- 
WRITE quickly flags for- 
matting errors without 



These were printed by ALLWRITE; 
shown 20% actual size. 

wasting time printing all the text. 
These standard features make docu- 
ment preparation faster and easier 
than ever! 

State-Of-The-Art 
File Handling 

There is no upper-limit on docu- 
ment size with ALLWRITE, because it 
chains files backwards as well as for- 
wards, even across diskettes. Switch 
from one chained file to another in less 
than six seconds by pressing two keys. 
Select portions of other files for inclu- 
sion at print time... great for stock 
paragraphs. 

ALLWRITE salvages text from bad 
disksl If a sector goes bad, you won't 
lose the entire file, because it will skip 
bad sectors, read the rest of the file. 



TAKES FULL ADVANTAGE OF YOUR 
MODEL 4. 

The model 4 version of ALLWRITE uses 
the entire 80-by-24 screen. On a 64K ma- 
chine, you can edit over 34,000 charac- 
ters of text. On a 128K machine, you can edit 
THREE FILES AT THE SAME TIME! The 
second and third files can be over 32,600 char- 
acters each, for a total of almost 100,000 
characters of text in memory. 



and then show you where the lost text 
belongs. This advanced error recovery 
turns a disaster into a feeling of pro- 
found relief. 

User-Definable Soft Keys 
Reduce Typing Time 

You can store 22 phrases or com- 
mands at a time into "soft-keys," then 
press just two keys to retrieve them. 
This makes frequently-used phrases 
and formatting controls a snap to use. 
You can store these definitions on disk 
and build a library of hundreds of pre- 
programmed keys to fit every one of 
your applications. 

Our specially-designed templates 
fit right on your keyboard to let you see 
your settings at all times. Each tem- 
plate is also a Reference ("Cue") Card, 
so it is always right in front of you 
when you need it, without using up 
valuable screen space. 

ALLWRITE Is Easy To Learn 

ALLWRITE's commands and con- 
trol keys are easy to remember be- 
cause they use the first letters of 
common English words: 'CE' stands for 
'Center,' 'Search' and 'Replace' do just 
that, and so forth. The on-line HELP 
menu offers over fifty screens of topics. 

NEWSCRIPT's documentation was 
acclaimed in every review, and 
ALLWRITE's 350-page book is even bet- 
ter. Portions of it are designed for be- 
ginners, with every feature clearly 
explained in step-by-step tutorial 
style. Since you won't always be a be- 
ginner, other parts of the book offer ad- 
vanced topics. There is a cross- 
reference summary chapter, a 14-page 
comprehensive index, and a detailed 
Table of Contents. We've been devel- 
oping computer programs and man- 
uals for over 20 years, and understand 
the importance of good documentation. 

To make installation easy, we in- 
clude Tiny DOSPLUS for the Models I 
and III, and special, pre-tailored ver- 
sions of both TRSDOS 6.2 and DOS- 
PLUS IV for the Model 4, all at no extra 
charge. The Model I and III versions 
work equally well with all major 
DOS's. 

PROSOFT'S On-Going 
Customer Support 

Perhaps the best reason of all for 
having ALLWRITE is the continuing 
support we offer you: friendly, expert, 
direct support that is unsurpassed in 
the micro-computer industry. There is 
no time limit to our support: if you are 
our customer and you need help, just 
call or write. We give free updates for 
90 days, and charge little or nothing 
for minor updates thereafter. 



Customer Comments 

"This is the best software package I 
have ever received . ..superb, easy to 
use, fast, and has more features than 
the business word-processor at the 
office : (E.R.I.) 

"ALLWRITE is a professional system 
that sets a new standard in word pro- 
cessing. It's powerful and easy to learn 
and use." 

80 MICRO. Nov., 1984 

"Your company and products have 
to be one of the strongest factors 1 can 
think of for keeping me with the 
TRS-80!" (J.R.H.) 

"NEWSCRIPT is the Cadillac of word 
processors. ALLWRITE is the Mercedes 
Benzll" (B.E.) 

"...a very readable manual!' (D.S.) 



BENEFITS OF OWNING 
• • ALLWRITE • • 



If Word Processing is important to 
you. PROSOFTs ALLWRITE is the best 
choice you can make. The clean, pro- 
fessional appearance it adds to your 
letters and reports will make an excel- 
lent impression on people. We will be 
happy to send you free print samples 
so that you can see for yourself how 
good ALLWRITE will make you look. 

You probably know that quality 
word processors for CP/M and the IBM- 
PC sell for $300-500, and they don't 
have ALLWRITE's capabilities or speed 
... or PROSOFT's proven, on-going 
support. Now, for a fraction of the cost 
of a new computer, you can have the 
most complete word processor of all. 
And you won't have the headaches of 
starting all over again with a new, 
different computer. 



Note to college students: with its 
Footnote, Table of Contents and Index 
features, ALLWRITE is ideal for your 
reports and Term papers. 



HUNDREDS OF USEFUL 
CAPABILITIES 

ALLWRITE comes with just about 
every useful word processing feature 
...standard. Here are some high- 
lights: excellent right -justified pro- 
portional printing on most printers 
having that ability; powerful Form Let- 
ter and Mailing Label preparation; In- 
stant counts of words, characters, 
lines, changes; block Move, Copy, De- 
lete, Putfile, Getfile, and List; delete 
by character, word, line, sentence, 
paragraph, or block; insert and one- 
key insert; great RS-232 printer sup- 
port; accepts all 256 ASCII codes from 
keyboard; intermix pitches on same 
line (printer-dependent); 1.5 line spac- 
ing, 6, 7, 8, 12 lines per inch (printer- 
dependent); does multiple-columns on 
all printers; perfect alignment of hang- 
ing indents; variables, logic state- 
ments, conditional printing; wildcard 
Directories; integrated with Electric 
Webster and DOTWRITER for Models I. 
Ill, and 4 (these are sold separately); 
"Legal" line numbering; paragraph, 
list, and figure numbering; supports 
most popular printers (all "printer driv- 
ers" included); compatible with high- 
memory drivers; fully explains all 
DOS and ALLWRITE error messages; 
wildcard search-replace; tabs, search- 
replace, other settings remembered 
across files; word reversal; up to nine 
levels of boldface; flexible page titles; 
footnotes at bottom of page or end of 
document; Table of Contents and In- 
dex generation; and PROSOFT's un- 
matched text formatting and printing 
capabilities. 



Attention NEWSCRIPT Owners 

You can trade in your copy of NEW- 
SCRIPT at very substantial savings. 
Please call our technical line for 

details How To Order 
You can order by phone or mail. For 
quickest delivery, call our Technical 
Support line. Please specify your TRS- 
80 model (I, III, or 4, 48K, at least two 
disk drives), and your printer(s). Our 
price includes normal shipping in the 
U.S. and Canada. The sooner you or- 
der, the sooner you will begin to bene- 
fit from the ALLWRITE! Word Processor. 

'249.95 $1 99.95 



ORDER NOW TOLL-FREE 

(800) 824-7888, oper. 422 
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Box 560, No. Hollywood, CA 91603 
(818) 764-3131 for Technical Information and Same-Day Processing. 

Terma: VISA, MasterCard, checks, C.O.D. California residents please add sales tax. 
Most orders tilled within one day. 
Model 4 version available at Radio Shack: Cat. No. 9O-0242 ^30 
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NICE Perspective 

I found R. Walter Steur's review of 
NICE (October 1984, p. 39) shallow 
and overly negative. Steur ignores the 
fact that NICE is one of the most flexi- 
ble and versatile TRS-80 packages 
available. 

NICE isn't perfect; its documenta- 
tion, for example, leaves much to be 
desired. Yet, when considering its per- 
formance and capabilities, I think 
NICE deserves a four-star rating. 

Michael R. Keller 
Skowhegan, ME 

Where's The Disk? 

Contrary to what's stated in Table 1 
of Hardin Brothers' "Making Your 
Selection: Choosing the Right Edi- 
tor/Assembler" (September 1984, p. 
60), Radio Shack's Series I Editor/ 
Assembler includes only the Model III 
disk in its package. In place of the 
Model I disk that I wanted were in- 
structions for exchanging the enclosed 
disk for a Model I disk. If it's the 
Model I disk that you're after, I advise 
that you open the package before buy- 
ing the product. 

G. F. Mueden 
New York, NY 

Communicating 

I disagree with what M. J. Batham 
refers to as "drawbacks" in her review 
of Videotex Plus (September 1984, p. 
168). First, hex codes are required only 
if you use the SETCOM feature on an 
automatic log-on. If you use the clear- 
Q keys to configure the program, 
you're presented with a chart of baud 
rates or UART configurations. Then, 
all you have to do is select the number 
conforming to the baud rate of the de- 
sired configuration. 

Secondly, Batham states that you 
can't go back into DOS without log- 
ging off or redialing the host com- 
puter. I do this all the time; just exit 
using clear-X, and then reload Video- 
tex Plus. You will, of course, lose 




information sent by the host computer 
while you're out of Videotex Plus. 

Finally, control-P doesn't send the 
signal that prints the contents of the 
buffer; rather, it sends a control-P to 
the host computer. It's clear-P that 
prints what's contained in the buffer. 

L. J. Kutten 
St. Louis, MO 

The inaccuracies in M. J. Batham's 
review of Videotex Plus can't be ig- 
nored. The program is capable of gen- 
erating a true break signal; p. 23 of the 
User's Guide and the on-screen help 
menu both state that the F3 function 
key generates this. 

You turn on the printer with clear- 
or control-R, while clear- and control- 
P is sent to the RS-232 board. In addi- 
tion, Videotex Plus doesn't support 
XMODEM protocol, but instead sup- 
ports CompuServe's B protocol. 

Adam Rubin 
Wappingers Falls, NY 

In reviewing Videotex Plus, I tested 
the program extensively using the 
Model 4 to communicate with Com- 
puServe and a local IBM-type BBS. 
Hex codes are required to use Video- 
tex Plus's auto log-on feature. Pages 
8-11 of the manual explain how to in- 
put hex codes, yet it 's confusing to a 
user who doesn't know hex. 

The only way to return to DOS is to 



exit the program which, in turn, 
makes you lose information from the 
host computer. Other telecommunica- 
tions programs allow a return to DOS 
while capturing data in the buffer. 

Control-P on my version (1.00.00) 
toggled the printer, allowing it to print 
the contents of the buffer. Page 25 of 
the manual explains the clear-P option 
to print the buffer contents. The use of 
both P and R are similar, with R act- 
ing as a print screen function, and P as 
a print buffer option. 

Adam Rubin is correct in stating 
that the F3 key generates a break, yet 
the break key doesn't initiate a true 
break. When following the instruc- 
tions on p. 31 of the manual, I had no 
difficulty with file transfer using the 
XMODEM protocol. In doing this, I 
also used the No option to turn off the 
XON/XOFF support. 

M.J. Batham 
Des Plaines, IL 



80 ALERT 



Occasionally, 80 Micro receives 
letters from advertisers who have 
changed their status, or from read- 
ers who have had difficulties with 
our advertisers. Most of these prob- 
lems are resolved to the satisfac- 
tion of all parties, but some prob- 
lems appear to be insoluble. 

As a service to our readers and 
advertisers, 80 Alert posts the 
names of advertisers we are unable 
to reach, or who have changed their 
address or status. Anyone who has 
current information about a man- 
ufacturer or distributor, or who 
has an advertiser complaint, should 
write to 80 Alert, c/o 80 Micro, 80 
Pine St., Peterborough, NH 03458. 

80 Micro has been informed 
that Micro Management Systems 
Inc., 2803 Thomasville Road E., 
Cairo, GA 31728, has stopped tak- 
ing orders until further notice. 
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PRICES SLASHED! 



Our Same Super Service at New Lower Prices 



ELECTRIC 

WEBSTER | 

W/Corrections CJettflf 

105 95 !Ksj • 




HYPHENATION ^ _ 

or 37 

GRAMMAR 



95 



^75^^795 




77 



95 



Lozy 
Writer 



93 



50 



DOT WRITER 

W/Letterset Design System 
71 95 



SOFTWARE 

NEWDOS80A/.2 $ 97.50 

COMREF for Newdos80 13.95 

MICRO CLINIC Mod 1 24.50 

MICRO CLINIC Mod 3 28.50 

ARRANGER II 44.95 

TRASHMAN 32.50 

FASTER 22.95 

R.P.M. 21.50 

DSMBLR II 33.95 

PRO-DUCE 33.95 

SUPER UTILITY +3.2 62.95 

ZORLOF II 49.95 

MSCRIPT 55.95 

EDAS IV 84.00 

PRO-CREATE 84.00 

OMNITERM 64.95 

CYBERCHESS 24.95 

TALLYMASTER 54.75 

MAXI CRAS 74.95 

MAXI MANAGER II 146.95 

ENBase 132.50 
SBSG Accounting Modules 

Model 1 or 3 165.00 

Model II 240.00 
MAS80 Accounting 

Syst. 299.95 
EDIT-Basic Editor 33.50 

PASSWORD 300 

Modem 184.95 
PASSWORD 1200 

Modem 339.95 
VOLKSMODEM w/cable 81.90 

VERBATIM DATALIFE DISKS 
5 1 /4" SS/DD 22.95/10 

5 1 /4" DS/DD 29.95/10 

WRITE FOR OUR 
FREE CATALOG 



DOSPLUS 3.5 

$50 95 



DOSPLUS 4A 

with M-ZAL 

115 95 

6.X PLUS 

Improve Your TRSDOS 6.2 

37 95 

MTERM 

Special Price thru 1/31/85 



$49 



95 



MOD4 Speedup Kit 

By Alpha Technology. Inc. 

75 00 

TEAC DRIVES 

FD55A 40 Track 145.95 

FD55B 40 Track Double 179.95 
FD55F 80 Track Double 199.95 

The above Teac Drives are half height 
bare drives and include a full year limited 
warranty. 



Free Use of Credit Cards 
Friendly. Honest, Reliable Service 



Toll Free Order Line 



24-Hour Shipping for Items in Stock 
Large Selection-Call for Items Not Listed 



We accept Visa, MasterCard, check, cash money 
orders. COD. and POs on approval. In the 48 con- 
tinental States, please add $2.50 for UPS standard 
shipping Alaska, Hawaii, FPO. U.S. Mail, and foreign 
orders are charged actual shipping & handling 
charges COD orders are charged an extra $2.00 and 
require cash or certified check upon delivery. 

When ordering by mail include your telephone 
number, credit card information, computer model, 
memory size, and number of drives. Colorado resi- 
dents add appropriate sales tax. Prices are subject 
to change without notice 



TOLL-FREE ORDER LINE COLORADO/TECHNICAL 

1-800-4684474 (303) 861-9250 * 

applied 

microsystems, 

inc. 

612 Washington, Denver, CO 80203 



AMI 



TRS-80 and Radio Shack are TMs ot Tandy Corp 



LET'S KISS 
1 MILLION 
MUTE 

TRS-80's 

GOODBYE. 



NEW 
MODEL 4 

VERSION ! 

vs-ioo 

Voice Synthesizers. 



SEE REVIEW IN 
DECEMBER 80 MICRO 



\w*4i\^, 



NEW! 



TALKER 4m Text to Speech Software 

Includes all the features of TALKER 1.4 and TALKER 2.0 (see next page) 

and: 

Full Model 4 support, in Model 4 and III modes! 
Including these powerful features: 

□ Automatic keyboard echo (letter by letter or word by word, with or 
D Automatic screen echo without puntuation). 
Q Pitch and speed control 

□ Speech is as easy as: PRINT* "I'll say anything" 

□ Relocates itself into high memory (uses only 6 1 AK) 



NOW 
fur 

MODEL 4 



1^ 



:SB 




TALKER 4.0 on disk only (also includes TALKER 2.0 for use in model 



m 



ode) $39.95 



it 



Doctor SIGMUND" will amaze you 




See Artificial Intelligence working! 

If you want to show off your computer, run "Doctor SIGMUNG" and see their expressions as 

your TRS-80 has an intelligent conversation with you. 

If you have our VS-1 00 voice synthesizer, Sigmund actually talks back to you. Even YOU will 

be impressed. 

Doctor SIGMUND, for Models I, III and 4 (48K required). Available on disk only $29.95 




ALPHA 



& 



79-04 Jamaica Ave.. Woodhaven. NY 11421 



800-221-0916 

7 9AMto5PME.S.T. 
In NY call: (7 18) 296-591 6. 



GIVE YOUR COMPUTER A 

VOIC 

As Well as a Mind 

vs-100 

VOICE 
SYNTHESIZER 

FOR RADIO SHACK MODELS 
I, III, 4P and Color Computer 

Introducing 

the "No Compromise" 

Voice Synthesizer at a 

price that speaks for itself! 

Price includes synthesizer, module 

power supply, 40 page manual 

editing and demo software. 



Call our "NEW" Demo Hot-Line 
Iff 212 296-0399 
And hear it for yourself! 




Text to Speech software: 

$19.95 

alke'PO $29 95 



An Impressive List of Features: 



■ Unlimited vocabulary 

■ Automatic inflection. 

■ Proven VOTRAX technology. 

■ We use the famous VOTRAX SC01 phoneme synthesi/er 
4 programable pitch level. 

■ Built in audio amplifier with volume control 

■ You can add voice to any basic program In minutes. 

■ Super efficient: one single line in Basic will produce a fu 
sentence! 

■ Works with any speaker (or add $5.95 for handsome 
speaker module) 



Price breakthrough same performance as units costing 

hundreds o? dollars 

Voice editor w.ll help you create unlimited number of words 

sound effects, etc. 

Hundreds of applications now cost effective in education. 

robotics speech therapy monitoring, games aid to 

handicapped, security, prompting 

Fully assembled and tested 

Ready to plug in and talk 

Plugs into 50 pin I O bus on Model 3 

As usual our 15-day money back guarantee protects you 



Text to Speech Software for the VS-100 



TALKER 1.4 

y/ Unlimited vocabulary translation of 

English text to speech 
*/ Very easy to use: In BASIC simply type PRINT*"I talk" 
v / Reads numbers up to 999 trillion 
v Reads many abbreviations correctly 

(such as Mrs., Mr., lb., Co., etc.) 
\S Very fast machine language program is only 4. 5 K long 
v Loads in high memory 

Only $1 9.95. Specify disk or tape 



TALKER 2.0 

y/ Same features as TALKER 1.4 plus: 
\r* Automatic keyboard echo option 
y/ Automatic video display echo option 
V Punctuation pronunciation if desired 
v And many control codes for increased versatility 
iS Self relocatable program is only 6ViK long 
y/ New BASIC command: PRINT! prints and talks. 
$29.95. On disk only 




Mb ALPHA ffimthM 

79-04 Jamaica Ave., Woodhaven, NY 11421 ** (718) 296-5916 



800-221-0916 

OrOrs Only. MY « Into cmll 

(71$) 294-691 B. 

Hour*: 9-5 Emmtmm Siandard 7Jm# 



Add $3.00 Per Order For Snipping 
And Handling We Accept Visa 
Mastercard Checks. MO. COD 
Add Sales Tax Overseas. FPO 
APO Add 10t Dealer Discounts 
Available COD add $3 00 extra 



FEEDBACK LOOP/by Terry Kepner 



Send any questions or problems 
dealing with any area of TRS-80 mi- 
crocomputing to Feedback Loop, 80 
Micro, 80 Pine St., Peterborough, NH 
03458. 

Qnl've been helping a friend up- 
■ grade his Model I from 16K to 
48K. He's had problems with the 
Model I's random-access memory and 
I was thinking of speeding up the 
RAM-refresh signals. Dennis Kitsz, in 
The Custom TRS-80, says "locate 
Z69, and cut the trace running from 
pin 5 to pin 12. Connect pin 12 to pin 
13. This speeds the memory-select 
process (from MREQ and RD) just a 
tad." 

However, an old 80 Micro Exclu- 
sive Oracle column says "Find Z89, 
locate the circuit trace running from 
pin 5 (it runs back underneath Z69). 
Cut that trace. Jumper pins 10 and 12 
of Z69 with a short piece of wire." I 
figure one of them must be right. I'd 
appreciate it if you could tell me which 
one. 

Also, what is Dennis' full address? I 
have no street address, and my post 
office says it can't deliver a letter with- 
out one. (Steven Maguire, Port 
Richey, FL) 

Am Not to worry; the two methods 
■are electronically equivalent. 
The first is slightly more reliable. Both 
generate the memory-select signal a 
cycle ahead of design, giving the mem- 
ory more time to react and deliver 
data. 

Your post office people are naive. 
Dennis Kitsz' complete address is 
Roxbury, VT 05669. When the total 
population of a town is about 100, 
street addresses are superfluous. 

Q B An LNW ad on the back of 80 
■ Micro says that the Team 
computer is compatible with Radio 
Shack's Models I, III, and 4. How 
compatible is compatible? I've had 




quite a few problems with my Model 
III due to lack of cooling and/or ven- 
tilation. Also, I'm at the point where I 
need the added capabilities of a ma- 
chine like the LNW. So overall, how 
would you rate the Team? 

I use Cobol and SuperScripsit with 
TRSDOS 1.3 and I want to move 
them to DOSPLUS 3.5 (or 4.0 if I get 
the LNW). How can I do this without 
knowing the passwords? I have patch- 
es from MicroSystems to make them 
work under DOSPLUS, but how do I 
move the programs? 

Finally, when I write (in Cobol) to a 
DMP-2100 printer, the underline fea- 
ture turns on and I have to turn off the 
printer to reset it. Can you or anyone 
else help me with this one? (Rick C. 
Chandler, Brentwood, TN) 

AH Get a cooling fan for your 
■ Model III. Radio Shack sells 
muffin fans that'll do the job. If you 
want something a bit more attractive, 
look for a 4-inch box fan at a local 
electronics store. It shouldn't cost 
more than about $20. 

Model 1/III/4 software seems to be 
better than 90 percent compatible with 
the LNW. I can't give an opinion on 
the computer as I haven't seen it. 

As for the passwords for Super- 
Scripsit and Cobol, MicroSystems 
should be able to give them to you, or 
tell you how to get the job done. I be- 



lieve their Transfer utility will move 
the program by ignoring the pass- 
words and protection levels, but the 
programs will still have these attri- 
butes on the new disks. Check your 
manual for more information. 

I don't know what to suggest for 
your printer problem except doing a 
dummy write, turning off the printer, 
resetting the underline, and continuing 
with the job. Try looking up the un- 
derline codes in the DMP-2100 manu- 
al and sending the turnoff code in a 
Write command. 

QB I have a 48K, dual-drive Mod- 
■ el III on which I use Scripsit to 
write novels. I desperately need more 
RAM. Is there a way to increase the 
RAM in my machine? Do you know 
of a patch that adds underlining to 
Scripsit? 

Second, are you familiar with 
Holmes Engineering's Sprinter Three? 
Does it work? What, if any, problems 
are associated with it? (Howard Davis, 
Vail, CO) 

AH Unfortunately, you can in- 
■ crease the amount of available 
RAM, but Scripsit won't recognize it. 
If the buffer space is inadequate for 
the file size you're using, I suggest that 
you get a new word processor such as 
Newscript, which lets you chain indi- 
vidual buffers into one long printed 
manuscript. Acorn Software's Super- 
script program patches Scripsit to add 
features like underlining and boldface. 
You can order the package from Acorn 
at 634 N. Carolina Ave. S.E., Washing- 
ton, DC 20003, 202-544-4259; $50. 

Sprinter Three speeds up CPU op- 
eration. Cassette and disk I/O auto- 
matically slow down to normal CPU 
speed to maintain compatibility with 
other Model Ills. You can increase 
CPU clock speed by 50 percent; in- 
creases of 100 and 150 percent are pos- 
sible but you might have to replace 
some of your computer's integrated 
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Newclock-80 $69.95 

The right time at the right price! Keep the time and date withtquartz accuracy, 
even when your computer is off The backup lithium battery (included) will last 
for over 2 years Software on tape or disk, please specify. Use "Tl M ESET" once 
to set the clock. Use "SETCLK" to set your computer's internal clock (at power 
up) or use "TSTRING" so that the "TIMES" function reads the Newclock. 
Connection: Model I: plugs into the keyboard or expansion interface. Model III: plugs into the 
50-pin I/O bus. Compatible with all operating systems 




Printswitch $59.00 

Do you have 2 printers? Get a Printswitch. Stop plugging and unplugging 
those printer cables With the Printswitch. you can have 2 printers connected to 
your computer and you can select either one at the flick of a switch Works with 
any printer, plotter, or device that uses the parallel printer port. Simply plug the 
14 inch Printswitch cable into your computer, and plug your existing printer 
cables into the Printswitch. This is the nicest unit on the market. Superior quality 
board with gold plated edge connectors. For Models I, III, 4 and 4P 



m 



Alpha Joystick $27.95 

When it's time for fun, don't be without your Alpha Joystick. Do you know 
that most action games are Joystick compatible? Stop pounding on your 
keyboard and enjoy real arcade control. The joystick can also be used with 
BASIC programs; simply do J=INP(0) to read the joystick position (8 directions 
and fire button). Model I" plugs into keyboard or expansion interface. Model III 
4and4P: plugs into 50-pin I/O bus. The Alpha Joystick comes fully assembled 
and tested, ready to plug in and enjoy (Specify Model I, or Model III.4). 




lnterfacer-80 $159.00 

Low cost input and output device. The outputs consist of 8 relays (rated 2 
Amp @1 25V). easily controlled using "OUT" commands. For example. OUT 0.0 
turns all the relays off Eight LED's show the states of the relays. The 8 inputs 
are optically isolated, so it's safe and easv to connect external devices 
(switches, sensors, thermostats, etc ). Simple "I NP" commands read the inputs. 
Connection- Mod I: 40pm bus. Mod 1 1 1,4.4 P: requires 50-pin I/O bus converter ($39.95) plugs 
into 50-oin I/O bus. Comes complete with power supply cable, and detailed manual 
(Up to 8 interfaces can be connected to your TRS-80 using our Y- cables). 

Analog-80 $139.00 

8 channel 8 bit Analog to Digital converter. Your TRS-80 can read voltages 
temperatures, pressures, light levels, etc. • Input range to 5.1 Volts. 
• Resolution 20mV. • Conversion time: 1 20 microseconds In BASIC, you can 
take up to 1 00 readings per second • Port address: selectable. Up to 8 Analog- 
80's can be connected to your TRS-80 for a total of 64 channels! 
Connection Model I 40 pin I/O bus. Model III. 4. 4P: requires 50-pin bus adapter ($39 95). 
Comes complete with power supply, cable and manual. 




^«A 




Special Cables 

Disk drive extender cable (8")...C1 60:S9.95 

Y-CableforModlbus(40pm): • X2-40...$29 •X3-40..S44 «X4 $59 •X5.S74 
Y-Cable for Mod 3 & 4 bus (50-pin): • X2-50 $34 *X3-50 $49 • X4-50 ..$64 
Disk drive cable (34 pin): •2-drive. C162:$32 •4-drive..C163:S45 
Extension cable. 4 foot: • For printer and drive (34-pin) .C165:$22 

• For Mod I bus (40-pin) C167:$24 • For Mod 3 & 4 bus (50-pin). C169:$28 
Keyboard to E/l (40-pin. 8"). C161:$21 if this is confuting, send for our Cable Hyer. 
Our cables are made with high quality gold plated connectors to ensure utmost reliability. 



NO RISK 

We know that ordering by mail can sometimes 
be a hassle, but with Alpha you are fully 
protected. 

1 ) Our 1 5 day money back guarantee protects 
you from disapointment. 

2) All our products are tested on a TRS-80 and 
waranteed lo 90 days (parts & labor) 

3) We ship 90% ot our orders within 24 hours. 

4) We are committed to help you 



Green Screen $1 2.50 

Do your eyes a favor, putonagreen 
screen. Tens of thousands are in use 
for a good reason: they work Con- 
trast is enhanced and eye fatigue is 
greatly reduced. Ourgreen screen is 
curved: it fits right on the face of the 
tube (Fits Models 1,11,111.4.12.16) 






X4 X3 X2 




jm ALPHA 







79-04 Jamaica Ave, Woodhaven, NY 11421 ^ i? (718) 296-5916 



Toll Fro* Order Line 

800-221-0916 

Ordmrs Only. MY m Into call 

(719} 290-4919. 

Hour*: 9-8 Eatfrn Standard Tlma 



Add S3 00 Per O'dei For Shipping 
Ana Handling. We Accept Visa. 
Mastercard Checks. MO COD 
Add Sales Tan Overseas FPO 
APO Add i0°*.Deaier Discounts 
Available COD aoo S3 00eirtfa. 
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circuits (memory and associated chips) 
with higher quality chips. 

Qgl have some comments about 
■ Model 4 software. I recently 
purchased CP/M+ from Radio 
Shack, and my biggest complaint is 
that a number of files are missing. 

My Model 4 has double-sided 
drives. The CP/M + manual provides 
instructions for reconfiguring the Ba- 
sic input/output system (BIOS) and 
Basic disk operating system (BDOS). 
The only problem is that the CP/M + 
package lacks the necessary BIOS or 
BDOS files. When I requested help, 
Radio Shack told me that it wasn't go- 
ing to support CP/M + and that I'd 
have to go to Digital Research to get 
the necessary files. 

I also requested help with installing 
Wordstar 3.0. CP/M+ is configured 
to be a DEC VT52 terminal, but the 
installation program doesn't include a 
configuration file for this terminal. I 
finally bypassed the problem by in- 
stalling Wordstar as a Heath HI 9/ 
H89 terminal, which is DEC VT52- 
compatible. 

I configured my system to use the 
click filter, which produces a noise 
each time you press a key. The click 
filter conflicts with SuperScripsit. I 
asked the computer service rep at the 
local Radio Shack if there were any 
patches to get around the problem. 
After two weeks, I was told that the 
two programs conflict and that I'd 
have to turn off the filter when using 
SuperScripsit. I already knew this. 
(Gerald Crosby, Columbus, OH) 

A a Thanks for writing. Does any- 
■ one know of a patch that takes 
care of the SuperScripsit problem? 

QB Regarding Christopher Jensen's 
■ question about using En- 
hanced VisiCalc on the Model I (April 
1984, p. 14): Logical Systems Inc., 
maker of LDOS, has a patch that lets 
you run Enhanced VisiCalc on both 
the Models I and III. It works under 
LDOS or SmallDOS. The patch is 
public domain and comes on a disk of 
patches called the Fix Disk. The disk is 
$10; you can reach Logical Systems at 
P.O. Box 23956, Milwaukee, WI 
53223, 414-355-5454. (Robert M. 
Connors, APO NY) 

Aglf it isn't too much of an ex- 
■ pense, readers should get 
LDOS when they want to use Model 



III software on a Model I. They'll also 
have to buy a double-density modifica- 
tion (and most Model III software re- 
quires the additional drive space avail- 
able with double density) but that's still 
cheaper than a new Model 4. 

QB I recently bought a secondhand 
■ Model III and took it home in 
my car. When I tried to call a directory 
for the drive 1 disk, I got an error mes- 
sage (data lost during disk I/O). I had 
Radio Shack align both drives, which 
cost me $60, but the problem returned 
after a week. Radio Shack fixed the 
drives again, at no charge. 

The computer worked fine for two 
months. Then I took it to work in my 
car, and it did it again. I have a sneaky 
feeling that the ride in my car is shak- 
ing the computer and moving the 
drives out of alignment. Is this possi- 
ble? Is there a special disk I can use to 
protect the drives when transporting 
the computer; if not, can I realign the 
drives myself? (Dorothy Belk, Little 
Rock, AR) 

A^The problem is definitely vi- 
■ bration, but your drives 
shouldn't be that sensitive. I suspect 
that the alignment screw is a bit loose 
in its fittings. If you must move the 
computer around, get the Disk Drive 
Analyzer from J & M Systems (137 
Utah NE, Albuquerque, NM 87108, 
505-265-1501; $79 for single-sided 
drives) so you can test your drives. 
This program and disk are the next 
best thing to having a professional 
technician with an oscilloscope look at 
your drives. 

Qnl've been having problems 
■ saving longer programs on my 
Radio Shack Series I Editor/ Assem- 
bler. Could it be the computer or tape 
recorder? Is there a limit to the size of 
a file the editor/assembler can save? 
The manual doesn't mention any such 
limitations. (Rodney Maglente, Chi- 
cago, IL) 

AH Series I is limited to a maxi- 
■ mum file size of 21 1 lines (note 
that the limit is lines, not memory). If 
you're having problems with files 
smaller than that, I suspect that the 
tape recorder head is drifting as you're 
writing or loading a file, but that 
should give you some type of error 
message when the file fails to load 
properly. If you aren't getting the er- 



ror message, I'm stumped. Does 
anyone else have ideas or comments? 

Qm Here's an additional suggestion 
■ for Don Schenbarger (March 
1984, p. 15) regarding the "Diskette?" 
prompt. If the cable from the disk 
drives' controller board to the CPU 
board doesn't make good contact, the 
prompt can appear, so the problem 
could be hardware related. 

I'd like to know the relationship be- 
tween Model I Scripsit and my ver- 
sion, 3.2. Craig Lindley's patch pro- 
gram for Model I Scripsit (October 
1982, p. 276) doesn't work with my 
version. Does Scripsit 3.2 occupy dif- 
ferent memory locations? Is there a 
disassembled listing of version 3.2 
available so that I can install some of 
the patch functions? 

Also, would you recommend a 
good disassembler program for the 
Z80A as used in the Models III and 4? 
I'm interested in one that converts ma- 
chine hexadecimal code into symbolic 
or mnemonic code. (Stephen A. Tork- 
ko, North Bend, OR) 

AH Patches for programs on the 
■ Model I invariably don't work 
on Model III versions of the same pro- 
gram. The problem is that disk and 
printer I/O routines are almost totally 
different. If you want patches that 
make Scripsit much easier to use, try 
Acorn's Superscript. For more infor- 
mation, see my answer to Howard 
Davis' letter above. 

I don't know of any disassemblies of 
Scripsit 3.2 you could buy. Can anyone 
else help? I'm not familiar enough with 
the disassemblers currently on the 
market to make a suggestion. 

Qa I have a late-issue Model I with 
■ an RS Expansion Interface, 
for which I bought double-sided drives 
(Tandon TM-100-2). To date, I've 
been unable to access the second side. 
My DOSPLUS 3.5 and LNW 5/8 
doubler perform flawlessly as long as 
I've configured only one side. I run in- 
to problems when I try to generate a 
double-sided master of DOSPLUS. 
I've tried several copies of DOSPLUS 
and even had the SYSGEN utility 
replaced, suspecting it was at fault. I 
feel that I have some kind of hardware 
problem, and that the computer isn't 
physically accessing the second side. 
Any suggestions? (Chuck Fullgraf, 
Aiken, SC) 
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AH To the best of my knowledge, 
■ DOSPLUS 3.5 works with 
double-sided drives. Before you try 
SYSGENing the system disk, use the 
CONFIG command to access the sec- 
ond drive as a double-sided drive. 
Once DOSPLUS knows that the sec- 
ond disk has two sides, you should be 
able to verify and use both sides of any 
disk in that drive. Don't forget that 
you have to use double-sided disks; 
single-sided disks won't format as 
double-sided unless you've altered 
them properly. 

As soon as you finish with the 
CONFIG command, format a double- 
sided disk. If the second side fails to 
verify, check the configuration of 
your system and make sure that the 
drisk in drive 1 reports as being dou- 
ble-sided. If it is, and you still can't 
format both sides of a disk, you defi- 
nitely have a hardware problem. 

Call LNW to make sure your dou- 
bler supports double-sided drives. 
Then check with MicroSystems Soft- 
ware and see if you're doing anything 
wrong with the CONFIG command, 
and ask for advice. Finally, take your 
drives to a technician and have them 
checked out; they might have a jump- 
er that needs to be set, or some other 
such silliness. 

Once you get DOSPLUS working 
on both sides of your second drive, 
you can then SYSGEN a master DOS- 
PLUS disk for use in drive zero. 

QB I bought a Model 4 from Dis- 
■ played Video, but I didn't re- 
ceive a TRSDOS 6.0 registration card. 
How do I get one? Can I expect TRS-80 
equipment from dealers like Displayed 
Video to be equal in quality to all-Ra- 
dio Shack equipment? 

Also, is there a way to solve the 
problem of losing characters when 
words wrap around in SuperScripsit? 
Do any software companies offer 
modifications to SuperScripsit? The 
features I have in mind are indexing, 
footnoting, and so on. Since software 
firms seem to be advertising less in 
magazines like 80 Micro, where can I 
learn about new programs for the 
Model 4? 

Finally, why can't I directly transfer 
files between a Model 4 and a Model 
100 via the cassette interfaces? Is it ab- 
solutely necessary to have an RS-232C 
interface? (Hugh Ruppersburg, Ath- 
ens, GA) 



Am Only Tandy gives out regis- 
■ tration cards, but you're in 
luck. Tandy just released TRSDOS 
6.2. If you go to a local Radio Shack 
store and ask for the updated DOS, 
you should get a new registration card 
with it. And they shouldn't charge you 
for the update. 

Buying from third-party companies 
that provide their own memory and 
drive upgrade is a caveat emptor situa- 
tion. Usually you get equipment equal 
in performance to standard Tandy de- 
vices, but that's not a guarantee. 
Sometimes you'll get equipment supe- 
rior to Tandy's. Rarely will you get in- 
ferior equipment, but it's possible. In 
99 percent of the cases, as long as you 
stay within the normal operating spe- 
cifications of a standard Model 4 (that 
is, don't try to add speed-up kits, 
super-high-density drives, etc.) you 
won't be able to tell the difference be- 
tween standard and non-standard 
Model 4's. 

I haven't heard of any solutions for 
SuperScripsit's losing characters dur- 
ing wraparound, and I don't know of 
any companies selling patches or en- 
hancements for the Model 4 version. 
To find out about new software, 
check the New Products section of 
this magazine. If you're looking for a 
word processor with automatic index- 
ing and table -of-contents capability, 
give Prosoft's Allwrite serious consid- 
eration (for a review, see p. 35 of the 
November 1984 80 Micro). 

While the Models 4 and 100 use the 
same techniques and baud rates to 
save data to tape, there's one big dif- 
ference: The Model 100 saves a title 
before the data, and the Model 4 
doesn't. The Model 100 rejects Model 
4 tapes because they aren't identified 
by a title, and the Model 4 rejects 
Model 100 tapes because the computer 
requires a line number before the title. 
You need a machine-language routine 
that creates a title when saving pro- 
grams from the Model 4, or one that 
ignores the disparities in the files when 
you're loading from one machine to 
the other. 

QBl've had the same problem as 
■ Robert Goodman (April 1984, 
p. 16) with the automatic 60-line count 
in Basic. If he begins each print series 
with a PRINT CHR$(28), the auto 
line count will reset to zero. (Galen F. 
Tustison, San Marcos, CA) 



AB In other words, before starting 
■ a print job, line up the paper to 
the top of the page, send a CHR$(28) 
to the printer, then start printing. Now 
the six-line skip will occur at the page 
perforations, making for a clean print- 
out. Thanks for the advice. 

QaDoes anyone know where I 
■ could beg, borrow, or steal a 
Micro Design MDX-2 expansion in- 
terface board? Micro Design has dis- 
continued it. I'll accept a slightly used 
or damaged board, but I'd prefer a 
board in its case, with the complete set 
of manuals. (Steve Winokur, Hor- 
sham, PA) 

AH All right, folks: Does anyone 
■ out there know where Steve 
can get an MDX-2 board? 

Qa I'm looking for Forth for my 
■ Tandy 2000. Laboratory Mi- 
crosystems Inc. of Marina del Rey, 
CA, has a package, but it's based on 
the 8086 microprocessor. I've read 
that the 2000's 80186 has the 8086 in- 
struction set in it, and therefore Forth 
should execute. Is this true? Also, does 
the 2000 have a math coprocessor in- 
cluded, or can I use the 8087-3? Better 
yet, do you know of a version of Forth 
written specifically for the Tandy 
2000? Is Microsoft planning to publish 
one for its MS-DOS system? (Ron 
Wat kins, Tucson, AZ) 

Am Yes, 8086 Forth will run on 
■ the Tandy 2000, but you must 
make sure you have a version designed 
for that computer. Just as you can't 
run Z80 SuperScripsit on every Z80 
computer, you can't run 8086 Forth 
on every 80186 computer. The pro- 
gram must be customized to use the 
computer's keyboard, video, and disk 
drives. 

Before investing in a commercial 
program, try contacting Forth Inc., 
2309 Pacific Coast Highway, Her- 
mosa Beach, CA 90254. They own the 
Forth trademark and are responsible 
for distributing FIG-Forth, the public- 
domain version available for almost 
all computers. I 



Terry Kepner is a writer and pro- 
grammer, and an Associate Editor of 
80 Micro. He's been writing about 
microcomputers since 1979. 
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You've Cot 



TOTAL ACCESS 



( specializing in n?S80 •) 



Rose 



TO YOUR COMPUTER HARDWARE & SOFTWARE 
NEEDS. CALL ROSE TODAY! 



QUALITY DISK DRIVES 

These drives are complete with power supply, cover and 
external drive connector For TRS-80 Model I. III. 4 IBM 
PC and others All drives are Double Density and step 
at 6ms or less SS means single head. DS is double 
head Specify white or silver color cover Add S5 per 
drive shipping unless otherwise specified All drives have 
a one year warranty on parts and labor 

COMPLETE FULL SIZE 
5.25" DISK DRIVES 

40tk Single Side Tandon TM 100-1 $ 169 

40tk Dual Side Tandon TM 1 00 2 209 

80tk Dual Side Tandon TM101-4 ......... 279 

COMPLETE HALF-HIGH 

5.25" DISK DRIVES 

1ea 40tk SS TEAC FD-55A in dual case S 189 

2ea 40tk SS TEAC FD-55A in dual case 324 

lea 40tk DS TEAC FD-55B m dual case 243 

2ea 40tk DS TEAC FD-55B .n dual case 424 

lea 80tk DS TEAC FD-55F in dual case 297 

2ea 80tk DS TEAC FD-55F in dual case 522 

COMPLETE 5" DISK DRIVES 

&dd SI stippmc P« ? y<>t ra« 



ROSE GETS RIGHT! 

NOW— ROSE'S 
MOD 4 CP/M 



$69 



Complete with Manual 



Rose has developed this streamlined version of CP/M 2.2 that lets 
you run most of your favorite CP/M programs. They are in stock, 
ready to ship to you at this unprecedented low price. 



2ea SS TM848-1E s in dual case with fan 
2ea DS TM848-2E s in dual case with fan 



S 699 
799 



BARE 5.25" 8. 8" DISK DRIVES 

40tk SS. Full Size. Tandon TM 100-1 $129 

40tk DS. Full Size Tandon TM 100-2 169 

80tk DS. Full Size Tandon TM101-4 239 

40tk SS. Half-High. TEAC FD55-A 129 

40tk DS, Half High. TEAC FD55 B 169 

80tk DS. Half-High. TEAC FD55-F 239 

8' SS, Thinlme. Tandon TM848-1E 290 

8 DS. Thinlme. Tandon TM848-2E 360 

TRS-80 MODEL 111/4 DISK DRIVE KITS 

A* SB shippng pa U 

internal drive kit complete with disk controller, power 
supply, mounting brackets cables and ail hardware plus 
step-by-step instructions This kit contains everything 
you need (except the Disk Operating System, drive and 
a screwdriver) to convert your cassette Model III or 4 
to fast reliable disk operation Don't confuse this Quality 
kit with the high-priced ripoffs Thousands of satisfied 
customers cannot be wrong You can |om them for 
onry $199 

OTHER DRIVE GOODIES 

TRSDOS 1 3 Disk & Manual for Model III $23 

TRSDOS 2.3 Disk & Manual for Model I 23 

TRSDOS 6 x Disk & Manual for Model 4 29 

LDOS tor the Model I or III 69 

NEWDOS 80 v2 for the Model I or HI 93 

2 drive cable for Model 1/111,4 24 

2 -drive cable for IBM PC 40 

4 -drive cable for Model I 34 

Extender cable. 7 long 13 

5 28" power supply & end . white or silver 59 

8' power supply, fan & enclosure beige 159 

TRS-80 MODEL I 

DOUBLE DENSITY CONTROLLERS 

Add $3 stwx; 
Aerocomp "ODC" Really the best by test $99 

Aerocomp "DDC" with LDOS 149 

Aerocomp DDC with NEWDOS 80-v2 189 

LNDoubter 5 78 " if you need 8' drives . 169 

MEDIA A SUPPLIES 

S" Diskettes SSDD. Lifetime Guarantee. Pk of 10 $16 

6" Diskettes DSDD. Lifetime Guarantee. Pk of 10 21 

6" FHpsort holds 75 Diskettes 19 

8" Diskettes SSDD, Lifetime Guarantee. Pk of 10 29 

6" Diskettes DSDD. Lifetime Guarantee Pk of 10 34 

8" Fhpaort. holds 50 Diskette* 29 

6.26" or 8" Head Cleaning Kit 9 

Letter Size 20 lb. Tractor Paper. 2900 sh««t» 26 

TRS-80 SPECIAL EQUIPMENT 

12" Green Phosphor Monitor .79 

12" Amber Phosphor Monitor 84 

1 6K 200 nsec RAM Guaranteed 1 year (8 chips) 1 3 
64K 200 nsec RAM Guaranteed 1 year (8 chips) . 64 
64K RAM plus Genuine PAL for Model 4 upgrade 74 
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SPECIAL SOFTWARE DEALS 

-X U sniEpnc 

WordStar 3 3 (Specify MM or R,S format) $ 250 

MaiiMerg SpellStar. Starjndex 220 

WordStar Professional (Above 4 Progams) 450 

DataStar Data Entry & Retrieval 175 

ReportStar Report Generator 150 

InfoStar Advanced DBMS lAbove 2 Programs) 300 
dBASE II Complete With Disk Tutorial 385 

Super Utility Plus 3 2 by Kim Watt 59 

CP,M 2 2 for Model 4 by Monte Zuma 199 

Pickles & Trout CP/M 2 2m for the Model 2-12-16 
Floppy Version 179 

Same thing but the Radio Shack Hard Disk 219 



CP/M & 80 COLUMN 
FOR YOUR MODEL III 

No need to buy a new computer when 
you can use the Holmes VID-80 CP/M, 
64K RAM and 80 column modification. 
This kit is easy to install and requires no 
soldering. You end up with a complete 
64K CP/M computer with an 80 column 
screen that is still able to run all your 
existing Model III software. Now you 
will be able to use most of the CP/M 
programs that normal people do, such 
as dBASE II and WordStar. The regular 
cost of this kit is $524.00. Now Rose 
will fix you up for only $399 

SUPER SALE 

Same as above except complete with 
WordStar 3.3 installed and ready to run. 
Only $499 



PRINTERS & ACCESSORIES 

ANADEX DP-9725, 240cps plus COLOR .......... 1395 

PROWRITER 120cps. 10" Wide Friction/Tractor 339 
PROWRITER 2. 120cps. 15" Wide Frict/Trac . 595 
STARWRITER F10-40cps Daisy Wheel . 995 

LPRINTMASTER F10-55cps Fast Daisy Wheel 1199 

Rutishauser Bidirectional Tractor 199 

Rutishauser Sheet Feeder. A Best One 695 

A Good Cheap Sheet Feeder for the FIO's 475 



Please add %b handling cha'ge lo orders under $50 

ORDER NOW! 
TOLL-FREE 

800-527-3582 

Orders Only Please 

Call in your order or write to us at the address 
below Texas residents call us at 2 1 4-337-4346 
and deduct $2.00 from your order but you 
should remind me cause sometimes I forget, If 
you need technical information or service please 
call the Texas number as the Toll Free lines are 
just for orders only. Prices are subject to change 
without notice and are mail order only. I accept 
AMERICAN EXPRESS. MASTERCARD and VISA 
and I will not charge your card until I ship your 
goodies. You can send a check or a money 
order. I also accept COD orders but they require 
cash or a cashier's check upon delivery. If 
shipping charges are not shown please call for 
the correct amount. Add $5.00 handling charge 
if your order is less than $50.00 Shipping 
charges quoted in this ad are for the lower 48 
states only. Orders to Canadian address add 
$20.00 Documentation Fee if order is $500.00 
or more Texans add State Sales tax. No tax 
collected on shipments outside of Texas Be 
sure you know what you are buying 
SOFTWARE IS SOLD ON A REPLACEMENT 
BASIS ONLY - NO REFUNDS. If it is defective 
call us for instructions Please order from me 
now — I need the money and I will not jack you 
around. All merchandise carries the original 
manufacturers' warranty and all repairs or 
adjustments will be made by the manufacturer 
or his designated representative. 
NEXT DAY SHIPMENT of Goods in Stock 

TOTAL ACCESS 

P.O. Box 790276 
Dallas, Texas 75379 
214-337-4346 - 81 

Copyright 1984 by Total Access 

TRS 80 is a Trademark of the Tandy Corporation 

CP/M is a Trademark of Digital Reseaich 
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Hard Facts About 
Tandy's New Software 



Tandyland 

Radio Shack's fal fine- 
up of new software had 
something for everyone, 
with offerings for the 
Models III, 4, and 2000. 
Tandy 2000 owners will 
notice a new terminal 
package called Softerm- 
2000 on the shelves as well 
as two programs from the 
popular PFS series, PFS: 
Graph and PFS:Write. The 
introduction of new 
business software for the 
2000 shows Tandy's con- 
tinued commitment to its 
first MS-DOS machine de- 
spite the debut of its IBM- 
compatibles. 

For the Model 4 owner, 
fall brought new business programs, 
including Financial Management, 
Profile 4, Radio Shack's Money Deci- 
sion series, and an educational 
package called Introductory Science. 

Model III gamers weren't forgot- 
ten, either; Computer Diplomacy, 
Frogger, and Zaxxon are now avail- 
able for the Model III. Radio Shack 
also sells a Model 4/4P version of 
Zaxxon. 

Meanwhile, Tandy's entry into the 

IBM-compatible world means some 
big changes in Radio Shack's software 
market. Unlike the good old days, 
when Radio Shack was the primary 
software source for its proprietary 
TRSDOS operating system, the Shack 
now has plenty of competition for 
Model 1000/1200 software sales. 

When 80 Micro asked if the in- 
troduction of the new machines might 
put Tandy out of the software busi- 
ness, Tandy 1000 buyer David Frager 
responded, "Tandy will continue to 
produce software for all its machines 
as the need for software arises. If we 
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Photo 1. The Tandy 1200. 

see a need that isn't being filled by a 
third party MS-DOS software com- 
pany, we will definitely examine if we 
should provide the product." 

Frager also noted that Radio 
Shack's Express Order software pro- 
gram won't offer much MS-DOS soft- 
ware for the Tandy 1000 because users 
can get MS-DOS titles at other com- 
puter stores. Nonetheless, Radio 
Shack Computer Centers will carry se- 
lected third-party titles that they deem 
to be high-quality products. 

Among third-party MS-DOS prod- 
ucts Radio Shack is stocking are Ash- 
tonTate's Framework and dBase III, 
all of the PFS titles from Software 
Publishing, and MicroPro Interna- 
tional's WordStar Professional. 

Model I/m/4 owners who move over 

to Tandy's new hardware offerings, 
the Models 1000 and 1200, may be in 
for a case of sticker shock when they 
start checking out the price of MS-DOS 
software. For example, Lotus' son of 
1-2-3, the integrated package Sym- 
phony, sports a price tag of $695. 



Print and television 
advertising campaigns 
have made Symphony a 
visible product. But sales 
and conversions from 
1-2-3 haven't lived up to 
expectations, and price 
may be partly to blame. 
Turning to Symphony's 
chief competitor, Ashton- 
Tate's Framework, won't 
save you money — it retails 
for the same price. 

For those who don't 
mind spending as much on 
a program as a lot of peo- 
ple spend on a computer, 
Symphony and Frame- 
work should run as-is on 
the Models 1000 and 1200. 



Almost as soon as Tandy 

introduced the Model 1200 
(Photo 1), its "mirror-image" IBM 
PC XT work-alike, rumors about 
where the computers were being man- 
ufactured started to fly. According to 
the most prevalent rumor, Tandon 
Computer Inc. was the manufacturer. 
When 80 Micro asked Ed Juge, 
Tandy's director of computer market- 
ing, about the story, he said that com- 
pany policy dictates that the company's 
sources remain confidential. Juge 
noted that he, too, had heard the 
rumor, but would neither confirm nor 
deny it. 

Radio Shack Computer Centers are 

polishing their image with a slick new 
flyer aimed at potential computer buy- 
ers for business, education, and home 
use. It's a vast improvement over the 
old flyers that were stuffed into Sun- 
day newspapers. 

Called "Radio Shack Computer 
Center Answers," the brochure 
(Photo 2) poses questions from a 
hypothetical computer buyer; the 
answers, of course, highlight a Tandy 
machine that exactly meets the ques- 
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tioner's needs. The flyer looks like a 
newsletter printed on glossy stock. 

This new ad campaign may well 
bring attention to the quality image 
Tandy wants to communicate to buy- 
ers. It's yet another example of the 
Shack's long-overdue effort to solve 
its image problem. 




Photo 2. Tandy's new brochure, "Radio 
Shack Computer Center Answers. " 

Bulletin: "There is a new version of 

TRSDOS 6 which contains several im- 
provements and also includes some 
new features not previously available in 
this operating system. Upgrading to 
this new operating system is required." 

These words are taken from a Tan- 
dy customer service bulletin dated 
March 15, 1984; similar notifications 
are mailed out for upgrades of other 
operating systems or software. The 
final paragraph of these customer 
service bulletins instructs the soft- 
ware owner to pick up an upgrade at 
the local Radio Shack Computer 
Center. All well and good, but what's 
a customer to do when he gets to the 
computer center and there's no up- 
grade waiting for him? It's bad 
enough when the new software isn't 
in the local store; sometimes a cus- 
tomer may be told it's out of stock at 
the Fort Worth warehouse as well. 

Fear not, there is a way to get the 
first available upgrade even though 
the warehouse is empty. Tell the man- 
ager of your computer center to order 
the upgrade with your name and ad- 
dress on it. Then, the next time the 
warehouse receives a shipment of the 
upgrade, your order will be flagged 
and sent. 

It seems that computer center man- 
agers can order upgrades in two 



ways: for their own inventory or by 
customer name and address. Inven- 
tory ordering has a lower priority 
than special orders and when ship- 
ments come into the warehouse, they 
aren't earmarked for the stores need- 
ing upgrades. If the stock is there, it's 
sent out, but if it isn't, then the store 
manager has to try again later. Only 
personal orders are flagged. 

The logic behind the arrival of 

cellular remote telephones in some 
Radio Shack Computer Centers be- 
came a little clearer last fall with the 
announcement that Radio Shack had 
worked out a customer referral ar- 
rangement with mobile telephone 
companies in five major markets. 
The companies involved are NYNEX 
Mobile Communications, PacTel 
Mobile Access, NewVector Com- 
munications, Contel Cellular, Gen- 
com, and Bell Atlantic Mobile Sys- 
tems Inc. 

Tandy's press release didn't say ex- 
actly how much Computer Center 
space would be devoted to tele- 
phones, but considering the number 
of computers available from the 
Shack, things may get a little crowded 
in those stores that support the new 
marketing venture. 

New Threads 

"Phone booth journalism' 1 was the 
phrase reporters used to describe how 
Radio Shack's Model 100 changed 
their reporting habits at last year's 
Republican National Convention. 

According to Tandy, the lap-top 
portable revolutionized political re- 
porting in the 1984 election. Press 
planes were full of reporters using 
Model 100s to write stories; when the 
planes landed, reporters raced for 
phone booths to transmit their stories 
to host computers back at the news- 
room. 

Reporters from the Wall Street 
Journal, the New York Times, the 
Washington Post, and the Associated 
Press were among those using Tandy 
lap-tops at the convention. Tim Gal- 
livan, AP's news technology editor, 
notes that AP owns about 200 Model 
100s. Gallivan says that, to his 
knowledge, AP was the first news or- 
ganization to adopt the notebook- 
style computer for remote reporting; 



the wire service had the computers 
even before Tandy distributed them 
nationally. 

With one foot in the grave, Lobo 

Systems of Santa Barbara, CA, intro- 
duced a $795 Model 4P clone that 
runs LDOS and CP/M software. The 
Mini Max, as it's called, is designed 
to go head to head with Radio 
Shack's transportable. Lobo already 
has a Model III work-alike in its 
Max-80, which retails for $945. 

Lobo's president, Robert Bledsoe, 
quoted in the Oct. 15, 1984 Info- 
World, said he didn't see any prob- 
lem in staying with a CP/M machine 
or in competing against Radio Shack. 
Bledsoe hopes sales will offset some 
of Lobo's $1 million in liabilities. 
"There's enough demand for CP/M- 
based machines," he said. "If we can 
sell 100 to 200 machines a month, 
that will meet our needs. We aren't 
looking for high volume." 

Lobo may be the last of only a 
handful of one-time Radio Shack 
clone manufacturers. According to 
the Info World piece, LNW Comput- 
ers of Tustin, CA, the only other sur- 
viving clone maker, was reportedly 
out of business as of late September 
1984. 

Another ruling from the courts in the 

complex area of software copyrights: 
Federal Judge W. Arthur Garrity of 
Massachusetts ruled on Aug. 31, 1984, 
that copyrighted programs published 
in a computer-user magazine may not 
be put on disk, duplicated, and sold by 
a third party. 

Nibble Magazine, for Apple users, 
had sued Amtype Corp. for copy- 
right infringement for selling the 
magazine's programs on disk. Nib- 
ble's publisher, Micro-Sparc Inc., al- 
ready provides such a service by sell- 
ing program disks for $20-$30. 

In its defense, Amtype said it of- 
fered a "typing service" to readers of 
Nibble and other similar publica- 
tions. Amtype charged between $7- 
$10 for putting all the programs from 
a single Nibble issue on a floppy disk. 

Judge Garrity was to rule on possi- 
ble damages at a later date. 

MicroTrends 

The folks at the Hewlett-Packard 

Personal Computer Group in Cuper- 
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TRS-80 MODEL 4 

Word Processing Program 




L 80x24 DISPLAY using TRSDOS 6 or any MODEL II 
Built-in FORM LETTER and MAIL-MERGE capabilities. 

□ Built-in HYPHENATION capabilities. 
L 55 seperately programmable MACRO FUNCTION KEYS. 
I Performs PROPORTIONAL-SPACE right-margin justification 

on over 80 different printers (all drivers included FREE). 

□ Integrates with ELECTRIC WEBSTER spelling checker. 

□ Keyboard entry and printing of 31 European Characters and 
special symbols. 

LeScript also available to run on TRS-80 MODEL I, MODEL 
III, LNW-80. LNW-TEAM (80x24), Holmes VID-80 (80-24). 
and Lobo M AX-80 (80 m 24) 

□ CP/M and TRS-80 MODEL II versions now available (only 
$199.95). 

MODEL 2/12/16 Versions now available for TRSDOS 2.0, 
TRS DOS 4.2 and CP/M 



CAli 1-305-259-9397 



i - J 



ANITEK SOFTWARE PRODUCTS 
PO BOX 361136 O MELBOURNE. FL 32936 



■5TJM 



FREE SHIPPING WITHIN THE US.: OUTSIDE THE U S ADD $10 00 FOR SHIPPING 
FLORIDA RESIDENTS ADD 5% SALES TAX ALL ORDERS PREPAID BY CHECK 



MONEY ORDER CREDIT CARD OR C O D 



^ 141 



TRIAL-SIZE DISK OFFER 

Fill out and return this coupon to receive a free trial-size copy 
of the LeScript word processing system - a $25.00 value 



Name 



Add'ess 



Cty 



Stale 



Z(P 



Telephone 

My system is: 
a Model Mil 

□ Model 4 
a MAX 80 

□ LNW-TEAM 



Holme* VID-80 
Model II 
CP'M Modei 4 
CP/M MAX 80 



□ CP/M LNW-TEAM 
Q CP/M VID-80 

□ TANDY-2000 
a IBM PC 



Send to ANITEK • PO Box 361 136 • Melbourne, FL 32936 
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tino, CA, released some statistics last 
fall that put them in third place in the 
personal computer market. The 
former third-place company was 
Tandy Corp. 

Hewlett-Packard made a point of 
the fact that it couldn't confirm or 
deny the validity of the statistics that 
put the firm right behind IBM and 
Apple. However, HP credits its ap- 
parent rise to third place to the suc- 
cess of the HP 150 Touchscreen Per- 
sonal Computer. 

As for market share, IBM holds 
first place in the $1,000-$6,000 desk- 
top/portable market with 33 percent 
of sales, Apple comes in second with 
20.7 percent, and HP is a distant 
third with 6.1 percent. Tandy Corp. 
now holds fourth place, according to 
the information supplied by HP, with 
5.2 percent of the desktop/portable 
market (see Table 1). 



Mannfacturcr 


Percent Market Share 


IBM 




33.0 


Apple 




20.7 


Hewlett-Packard 




6.1 


Tandy 




5.2 


DEC 




3.0 


NEC 




3.0 


Others 




29.1 


Table I. Hewlett-Packard's 


ranking of the 


top firms in the $1,000-S6,000 desktop/ 


portable market. 







What's ahead for the business office? 

Frost and Sullivan, a New York mar- 
ket research firm, recently released a 
study predicting that personal com- 
puters will shape the course of office 
automation over the next five years. 
That isn't hard to believe, but the 
dollars involved may come as a sur- 
prise. 

The report indicates that word pro- 
cessing applications sales will increase 
by 23 percent to $10.7 billion by 1988. 
Unit sales for word processing equip- 
ment are expected to increase by 30 
percent yearly. That's because of the 
inroads personal computers have 
made into the managerial and profes- 
sional ranks: According to the wordy 
report, "The multifunctional capa- 
bility of both word and data process- 
ing of the desktop computer makes it 
well suited to the needs and tasks per- 
formed by those in these job levels." 

Frost and Sullivan considered as 
word processors dedicated units and 



even electric typewriters, but pre- 
dicted that personal computers will 
become the major component of the 
word processing market for the next 
five years. 

Speaking of growing computer use, 

some new figures show a startling 
leap in the number of computers 
available to public school students. 
According to Quality Education 
Data, a Denver research marketing 
firm, the number of students per mi- 
crocomputer has dropped by half 
since 1983. During the 1983-84 
school year, the national average was 
170 students per micro; by the begin- 
ning of the 1984-85 school year, that 
average had improved to fewer than 
85 students per computer. The top 
school district is Florida's Broward 
County, where the ratio is 23.4 
students per computer. 

QED's report, called "Top Fifty 
Districts," also showed some gains 
by IBM in the battle for the educa- 
tional dollar. Big Blue's share 
jumped from 4.6 percent of all mi- 
cros in schools in 1983-84 to 6.05 per- 
cent for the current school year. 

Apple computers, however, still 
dominate the education market, with 
a 47.9 percent share among large 
school districts. Radio Shack holds 
second place with 22.4 percent and 
Commodore is in third, according to 
the report, with 10.4 percent. IBM re- 
mained in fourth place despite its in- 
creased infiltration (see Table 2). 

Hot Items 

Software Arts of Wellesley, MA, the 

company that developed the classic 
spreadsheet program VisiCalc, has 
been working for some time to come 
up with another blockbuster pro- 
gram. Now it may have one: a PC 
desktop management program called 



Spotlight. Belonging to the new genre 
of microcomputer accessory soft- 
ware, Spotlight acts as a calculator, 
note pad, appointment calendar, tele- 
phone book, and index file deck. In 
fact, the program sounds very much 
like the Tandy DeskMate program 
that comes bundled with the Tandy 
1000. 

Desktop management programs 
have gained attention since Apple in- 
troduced one with their Macintosh a 
year ago, and the price for such pro- 
grams remains fairly reasonable. 
Spotlight retails for $150, a moderate 
price for professional software, but 
not exactly chopped liver. If the pro- 
gram is comparable to the Tandy 
DeskMate, then the rock-bottom 
price of the Tandy 1000 is even more 
of a bargain. 

Yes, but can you back it up? Elite 

Software Systems of Albany, NY, is 
staking some serious money on its 
claim that its new encryption pro- 
gram, Encomp, defies piracy. The 
company is so confident of its MS- 
DOS-based product, it's offering a 
$10,000 reward to any individual who 
can break the code. Elite will award 
an additional $2,000 to the dealer 
who sold the program. 

IBM's relentless quest for more mem- 
ory in less space took another step 
forward recently as the computer 
giant began producing volume quan- 
tities of a 256K chip. 

The 50.5-square-millimeter chip 
occupies only twice as much area as a 
64K chip and makes it possible to as- 
semble more than 4 million charac- 
ters on a 7- by 9-inch circuit card. The 
significance of all this becomes clear 
when you consider that in terms of 
real storage, you could put the con- 
tents of a 1 , 400-page book on a single 
chip. ■ 





Number of Units 




Manufacturer 


Fall984 


Fall9S3 


1984 Market Percentage 


Apple 


35,256 


15,879 


47.9 


Radio Shack 


16,495 


10,098 


22.4 


Commodore 


7,700 


3,494 


10.4 


IBM 


4,449 


1,676 


6.0 


Atari 


3,200 


3,106 


4.3 


Texas Instruments 


3,180 


952 


4.3 


Franklin 


2,151 


1,102 


2.9 


Others 


1,139 


525 


1.5 


Table 2. 1984 computer market shares in the top 50 U.S. school districts. 
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Datalife TAVAPC KArmon BASF 

W^i«ifiWTflING — r 

ppwes IV Aw » *l!TW*riflN 



l 




10 MEGABYTE 
HARD DRIVE 



$2995 



• 160 cps 

• Tractor paper feed 

• 128 Typestyles 

• 7 graphic modes 

• Proportional space 

• 15*' carrriage 



EPSON FX80 

160 cps. $AAQ 

10 carriage .. . "*T*Tw 



EPSON LQ 1500 




includes parallel interface. 200 
CPS, bi-directional, sheet 
feeders available. $H H QQ 



Includes MDS controller, 10 megabyte hard drive and 
memory, CPU. IBM keyboard. 256K RAM. monol- 
parallel board, monitor and single 320K floppy drive. 
Easily expandable. 
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I 
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The MBC 555-1 



«1199^ 



System Package 
INCLUDES . . . 




Sugg Retail Price Sugg Retail Price 

MSDOS $60 INFOSTAR S495 

SPELLSTAR . $250 WORDSTAR $495 

MAILMERGE . $250 

CALSTAR $250 

Features include 8088 Microprocessor. 128K RAM expan- 
dable to 256 RAM. parallel printer port graphics capabili- 
ty, game paddle port. 8087 math co-processor port. Also 
available with double-sided disk drives — $1359.00. 



*2999 VALUE 



i 




OKIUATA92 



The most advanced 
dot matrix printer 
in its once range 



$439 



*>- 



f 



OKIDATA93 



160 cps 

Tractor paper teed 
Proportional space 
15 carriage 



*679 




COMREXII _.__ 

13 CPS Printer *439 

COMREX III $649 

STAR GEMINI 15 $449 

STAR DELTA 10 $479 

OK/04 TAB $349 

OKIDATA93 $679 

OKIDATA 84 $799 

NEC 8023 $399 

NEC 2030 $899 

NEC 3530 SJ599 

BROTHER HR 15 $459 

BROTHER HR 25 $699 

BROTHER HR 35 $959 

PANSONIC 1090 $299 

PANSONIC 1091 $349 



WE'RE GIVING 

MAIL ORDER 

A GOOD NAME! 



DATA SUPPLIES 



Euclid, Ohio 44117 



IF ANYTHING 

BEATS OUR 

SELECTION 

ITS OUR PRICES! 



A SUBSIDIARY OF THE COMPUTER WAREHOUSE. INC. OF OHIO 




*199 



DKKIT III 



MODEL III A IV DISK UPGRADE 

NOW ADD UP TO 4 

INTERNAL DISK DRIVES TO A 

RADIO SHACK MODEL 3 & 

MODEL 4. UP TO 1.3 

MEGABYTES OF DISK 

STORAGE! 

• Gold Plated Edge Connectors • Metal 
Disk Drive Brackets • All Hardware and 
Cables • Switching Power Supply • 1 hour 
or less tor installation • 40 80 Track sup- 
ported • Single Dual Head supported • 
100% compatible • No Soldering needed 
• 180 days warranty on Controller 



'19900 
>34S 00 



DISKIT III wlo Drives 

DISK II III 

w/one Teac 554 40 Track Drive 
DISKIT III 

w/two Teac 554 40 Track Drive .... M95 00 
DISKIT III 

w/two Teac S58 40/40 Dual Drive * 95 00 
DISKIT III 

w/tovr Teec 558 40/40 Dual Drive <99S 00 



TOLL FREE 1-800-321-3552 

IN OHIO & OTHER INQUIRIES 216-481-4993 



Starling at 




BARE 

DISK DRIVES 

The extremely reliable Teac 
slim-line now requires half the 
power plus includes our 
exclusive 6-month double ex- 
tended MFR warranty. (Was 3 
months). 



TEAC 5'V" 554 40 TRK '149 

TEAC 5'/« 55B 40/40 TRK '199 

Tandon TM100-1 40 TRK «T49 

Tandon TM100-2 40/40 TRK '219 
Tandon TM 100-4 80/80 '319 



■' PRINTER BUFFERS 

FOR MOST COMPUTERS 

|, OUADRAM MICROFAZER 


TANDON SOQ95 
DRIVES ^** 

nrnnmrn PLUS PARTS 

REPAIRED & shipping 

DRIVE PARTS FOR TANDON. TEAC. MPI 
CALL FOR PRICES' 


MODEL IV - - 64K 

MEMORY EXPANSION 

Guaranteed 1 full year 

Set of 8 

4164 RAM CHIPS $ 39.95 


■ Parallel to Serial w/RK 5179.00 






H Each Add s 8K Upgrade S 10.00 

I All come with pause control and copy feature. 

MB ! and can be upgrades to 51 2K. 


w/PAL CHIP to go from 

64 to 128K *64.95 


■ ! SPRINTER 

M Double Your Speed 

| Speed-up cuts computer operation time In 
na half, saves time and money. Fast 4 MHz Z80B 
H CPU included, installs in 15 minutes with no 
H i soldering or cutting. 

Z SPRINTER III lor MOD III '109.95 
| SPRINTER 1 for MOD 1 M09.95 


MODEL III & IV 
RS-232 Communication 

Direct replacement torRS-2332. fully tested 
and burned in, easy installation. 120 day 
warranty. 

RS-232 »59.95 


16 K RAM SPECIAL 
MEMORY UPGRADE 

4116. 200ns. Guaranteed one lull year. 
S17.95 

NOW ONLY $11.95 
with the purchase of $25 or 
more! (while supply lasts) 





■I 
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I 
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COMREX CR 70 

PRINTER SWITCHING DEVICE 



$5995 



Now you can change between printers or devices with the 
push of a button. You can plug two printers into your compu- 
ter or any other parallel device with the new Comrex CR 700 
Switching device 




DATA SUPPLIES 



Euclid, Ohio 44117 
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TOLL FREE 1-800-321-3552 

IN OHIO & OTHER INQUIRIES 216-481-4993 



ORGANIZE 
AND PROTECT 




ROLLTOP 100 

DiSk File Model #RT100 
Twice the capacity (100 • 5'/4" 
Disks) of the leading "flip top" 
file. It includes 10 diskette di 
viders and anti-skid fee An 
outstanding design. . .$36.00 

Locking Model *RT100L$46.00 



FREE BOX 
OF DISKETTES 

BUSINESS 
P AC 100 

READY-TO-RUN 
BUSINESS PROGRAMS 

$ggg 5 

INCLUDES 
128 Page Users Manual • In- 
ventory Control • Payroll • 
Bookkeeping System • Stock 
Calculations • Checkbook 
Maintenance • Accounts Re- 
ceivable • Accounts Payable. 

PLUS 90 MORE! 




VERSABUSINESS SERIES 
The Most Powerful Business 
Software Ever! 
Model I, III & IV 
Each Versabusiness module can be 
purchased and used independent- 
ly or can be linked in any combina- 
tion to form a complete, coor- 
dinated business system. 

VERSARECEIVABLES $84.95 

A complete menu-driven accounts 
receivalbe. invoicing and monthly state- 
ment generating system. Keeps track of 
all information relating to who owes you 
or your company money and can provide 
automatic billing for past due accounts. 

VERSAPAYABLES $84.95 

Designed to keep track of current and 
aged payables, keeping you in touch 
with all the Information regarding how 
much money your company owes and to 
whom. 

VERSAPAYROLL $84.95 

Powerful and sophisticated yet easy to 
use! Complete employee records are 
maintained and all necessarry payroll 
calculations are peformed automatically. 

VERSAlNVENTORY $84.95 

Just what you need to maintain complete 
control of your inventory system. Gives 
you instant access to data on any item. 
Keeps track of all Information related to 
what items are in stock, etc. 

VERSALEDGER II $729.95 

This complete accounting system grows 
with your business. Can function as a 
simple personal checkbook register, a 
small business bookkeeping system or a 
large corporate genreal ledger system! 




ELECTRIC WEBSTER 

w/correctlng feature $779.00 

Hyphenation feature $ 39.00 

Grammatical feature $ 39.00 

COMPLETE SYSTEM 

All four programs $789.00 

"Cadillac" of Spelling Checkers 

80 Micro 9/82. 
Available on Model I. Ill & IV 



ELECTRIC PENCIL 
Version II 

Disk Version $79.95 

Tape Version .^ .... $69.95 

43^$104? 5 

Model I, Model III, & IV 
LNW-80, PMC-80 MAX-80. 

7.1 $99.95 

With Labels $7 74.95 

MISC. 
Avery Tabulables 

5000 - 3'/» i 75/76" 175.95 

W file Box for 75 Diskettes ST 9. 95 

LABL EMEAKER Kit W/400 1 up libels $29.95 

Ctssltbel Kit w/200 Ceselte Lab*/* and 
200 1 up Labels $34.95 
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DATALIFE Premium Diskettes at Affordable Prices 
•> > MD5?5 01 IS D Den /bo* ol W} $79 95 

Spe< idi Savings' Soft Sectored D's*er/es 
5 i 2S D Den iMDbbO 01} «' »« 

5 ■ ?S 4 Den (MD55? 0U S49 90 

8 'SO Den lfD34 fi~~ 





~"^- 22295 Euclid Ave. 

DATASVPPUCS £M Ohio " m 

A SUBSIDIARY OF THE COMPUTER WAREHOUSE. INC. OF OHIO 
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TOLL FREE 1-800-321-3552 

IN OHIO & OTHER INQUIRIES 216-481-4993 
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If Anything Beats Our Selection . . . It's Our Prices. Look no further if you're 
shopping for rock bottom prices and fast personal service. When you call M.D.S. you receive 
the fastest delivery available anywhere. We now have a bigger and better facility to serve you 
in the most efficient way possible. Call us. you'll be glad you did. ^ 
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THE HOME ACCOUNTANT 

The #7 best selling program for 
home and small business accoun- 
ting is now available for TRS-80 
Model 3. handles up to 99 accounts, 
five checkbooks, multiple income 
accounts, and can split transactions 
to any number of accounts. Prints 
net worth statements, income 
statements, as well as custom 
designed reports. Displays a bar 
chart and trend for any selected 
category. Its easy to use and yet 
provides all the power you'll need 
(by Continental Software, requires 
Model 3, 2 drives. 48K) . . .$62.95 



NEWDOS/80 Version 2.0 
MOD I or III *89.95 

NEWDOS/80 Version 2.25 
For Hard Drives *129. 



Let your TRS-80™ Test Itself With 

THE FLOPPY DOCTOR & 
MEMORY DIAGNOSTIC 

Disk Drive & Memory Diagnostic Program 

by David Stambaugh 

For MODEL I 524.00 

For MODEL III $26.00 




CP/M 











POWER DIRECTORS 






Choosing a Line conditioner for 






your computer is pure logic! 






Model P22 $74.95 






Model P2 S99.95 






Model P12 CALL 






Call or write for free brochure! 






BOOKS 






OTHER MYSTERIES 






TRS-80 DISK $19.95 






Microsoft Basic Decoded $24. 95 






The Custom TRS-80 S24.95 






Basic Faster & Better $25.95 






How To Do It On The TRS-80 . $24.95 






TRSDOS 2.3 Decoded $24.95 




1 


The Custom Apple $24.95 


| 




Machine Language Disk I/O ... . $25.95 








| 









Exc fofin e e ,y Model 4 

Montezuma Micro 

Now. for the first time, you can unleash 
the powerful features resident in your 
MODEL 4 computer. Open up the vast 
store of CP/M software such as Wordstar. 
dBase II and Multiplan. along with 
thousands of others! 

• Includes INTERCHANGE a utility that allows 
reading, writing and copying 20 different 
manufacturer's disk formats such as IBM. 
KAYPRO. OSBORNE. XEROX, etc. 

• Complete with the following CP/M utilities: 
ASM. DDT. DUMP. ED. LOAD. PIP. STAT and 
SYSOEN. 

• NO copy protection Backups may be made 
tor your own use and protection. 

• The CONFIGURATION program supports a full 
range of tH™ disk drives: 335. 40, 77 and 80 
tracks, single and dual sided in any combina- 
tion as well as the standard Model 4 drives. 

• Includes MODEM 7. a powerful public domain 
communications program lor tile tranter and 
remote data base access 

• Supports 80 x 24 video, reverse video, direct 
cursor addressing and more. 

• Utilizes the Model 4 function keys and allows 
user defined keys. 

• Auto execute command tor turnkey 
applications. 

• FORMA T utility permits up to 52 disk formats 
to be constructed, all menu drive. 



*1 59.95 
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WE ACCEPT 


= 1 


■ = 


MOST SCHOOL, 


■1 


M 


ADD S3. 00 FOR 


• Vita 


= | 


| = 


GOVT AND 


= | 


| = 


SHIPPING 


• Mastercard 






FORTUNE 1000 CO 






& HANDLING 


• Checks 


— H 


B = 


P.O. S ACCEPTED 


= 1 


1 = 


$6.00 Extra tor 


• Money Orders 


— M 


Is 


Add 3»» Serv. Chg. 


= | 


| = 


C.O.D. Orders 


• CO D 


— wm 


ail ■■■ 


Min. order S50 






Ohio Residents 




= H 


■ 2 




— ■ 


l — 


Add 6»a Sales Tax 
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Prices. Specifications, 
subject to change without 



5 '4 1S/DD/SS - Box of 10 *79.95 

5'4 2S/DD/SS - Box of 10 *3f.95 

Purchase 10 boxes of disks and you 
pay only *18.95 per box. 




READER EXCHANGE 



Lazy Writing 

After many unsuccessful attempts 
at trying to get my Model 4 to use the 
spooler with Lazy Writer, I wrote to 
AlphaBit Communications, Inc. The 
solution, though not included in the 
manual, is simple. Copy the SYS- 
DRV/CMD file, found on the Lazy 
Writer disk, for 6.X.X to Pl/CMD. 
When the spooler is operational, it's 
automatically used with Lazy Writer. I 
use this JCL file to activate the 
spooler: 

1 SET *LM CLICK/FLT 

2 FILTER *KI »LM 

3 SPOOL *PR TO TEXTFILErl (MEM = 5, 
DISK = 5) 

4LXX1 
5 //STOP 

Lance K. Mertz 

Snohomish Publishing Co. 

114 Ave. C 

Snohomish, WA 98290 

Better Positioning 

I merge this one-line utility with my 
programs to get each PRINT @ cor- 
rect on first trial: 

65000 X = PEEK(16416) + 256*(3ANDPEEK 
(16417)):PRINT@1016,X;" "@X,CHRS(14);: 
Z = PEEK(14400):Z = 2'Z:Z = Z/2: 
PRINTCHR5(I5);:PRINT CHR$( - 27*(Z = 8) 
- 26*(Z = 16) - 24»(Z = 32) - 25*(Z = 64));: Y$ = 
INKEYS:IFYS> = " "ANDYSO T' 
ANDXO 1023THENPRTNTYS; :GOTO 
65000ELSE65000 

You'll get a nondestructive cursor 
that you move with the arrow keys, 
while your program displays the posi- 
tion in the lower right corner. You can 
even use this as a screen editor since it 
accepts alphanumeric input. 

Thomas Eggarter 

Chatadata Inc. 

Ramirez Mitchell 358 

5700 San Luis, Argentina 

International Style 

Daisy-wheel printer owners who type 
in foreign languages will be pleased to 
know that Radio Shack released a 




daisy wheel, Scandia, that includes 
both Spanish and Danish characters. 
You access them via the SuperScripsit 
System Code utility. 

Carlos Ortiz 

119-37 Metropolitan Ave. #30 

Kew Gardens, NY 11415 

CLOADing 

I'm able to run "Catacomb Con- 
quest" (August 1984, p. 78) on my 
cassette-based Model III using 
"NODOS 80" (1983 Anniversary 
Issue, p. 96). Hopefully, "NODOS 
80" will let me run other disk-based 
programs from 80 Micro. 

Norman Jennings 
1605 Walton Street 
Cornwall, Ontario 
Canada K6H1W3 



Due to hardware interface prob- 
lems, the bar code reader program 
originally scheduled for this issue has 
been delayed; we will publish the 
program as soon as we resolve these 
problems. 

Also, because of Tandy's involve- 
ment with the Radio Shack show- 
cases, Ask Tandy will not appear this 
month; the column will resume in 
February. 

— Eds. 



For Geminis Only 

Glenn Parkinson's FORMGEM 
("Character Sketching," March 1984, 
p. 156) works perfectly on the Gemini- 
10X printer with only two changes. 
First, change the CHR$ (136) in line 
1390 to CHR$(8), and then change the 
CHR$(132) in line 1430 to CHR$(4). 

Mark Allen Reed 

Box 368 

West Lebanon, NH 03784 

I recently purchased Model 4 Super- 
Scripsit only to find that none of the 
printer drivers furnished with the pro- 
gram works with my Gemini- 10X. 

The drivers send a CHR$(15) to the 
printer, resulting in condensed-mode 
printing. You can prevent this code 
from reaching the printer with forms 
filter. Type in these instructions at 
TRSDOS Ready: 

SET *FF FORMS/FLT 
FILTER *PR *¥¥ 
FORMS (XLATE = X'OFOO') 
SYSGEN (YES) 

The first two lines set the forms fil- 
ter, while the next line converts all 
CHR$(15)s to CHR$(0)s. The last line 
writes the configuration to disk, and 
the printer driver now works properly. 

Jerome D. Klutts 

Route 2, Speedway St. 

Campbell, MO 63933 

Reader Aid 

After unsuccessfully trying to run 
Model III graphics programs on the 
Model 4P, I realized that the Model 
4P doesn't contain a Model HI ROM. 
Because of this difference, the Model 
4P prints incorrect graphics. Any sug- 
gestions? 

Jim Gonsalves Sr. 
2257 Manhattan Place 
Santa Clara, CA 95051 

We had the same difficulty and 
found that POKE 16892,02 corrects 
this problem on the Model 4P. 

—Eds. 



80 Micro, January 1985 • 29 



READER EXCHANGE 



Can anyone suggest a professional 
astrological program to run on a 48K 
Model III with twin double-density 
drives? The program should be able to 
print natal and harmonic charts. 

Roger G. Dawson 

22 Lancaster Road 

Preston, Lancashire 

England, PR1 IDA 

I'm looking for the automatic se- 
quential dialer program that was first 
seen in the movie War Games. I've 
been told that its name is AMODEM- 
90 and that it's a public-domain pro- 
gram. 

Richard H. Epson 

1440 Sumner A ve. 

North Charleston, SC 29406 

I give up — how do I get to the last 
level in Deathmaze 5000? Also, I'm 
trying to locate a copy of a game pro- 
gram called Space Age 21. 

George D. Madison 

P.O. Box 649 

Winchester, OR 97495 



Error Trap 

In line 8 of "Double Trouble" 
(Reader Exchange, October 1984, p. 
29) BACKUP SYS:0 should read 
BACKUP SYS0:0. 

Gil Seiler 

126 Boas Drive 

Santa Rosa, CA 95405 



Incorporate this change in Alain 
Cirkovic's Easydata program ("Lit- 
tle Wonder, " December 1984, p. 72) 
to get a directory in TRSDOS: 
Change Dir to D: in line 380. 

—Eds. 



DEBUG 



Listed below are modifications to 
X-Mart ("Attention Shoppers," 
August 1984, p. 75) to eliminate the 
syntax error that occurs in line 290 
when you try to exit the program. 
Delete line 1210 and make the fol- 
lowing changes: 

290 D1 = LEFTS(C3,X-2):D2 = MID$(C3,X, 
LEN(C3)-1):IFC3= "QUIT" 1210ELSEIF 
QHO0THEN340 

1210 PRINT@576. "SURE? ";:GOSUB 
1300:rFN = OTHENPRINTA:GOTO 280 
ELSEF=1 

Also, to eliminate two additional 



bugs, change lines 710 and 740 to 
read: 

710 IFC2 = "CAN"THENIFJ = 58THEN 
IFE(38) = 2THENPRINTDZ:FORT= 1 
TO800: NEXT:E(38) = 0:GOTO80ELSE = 
BELSEA = DELSEIFC2= "POC'THEN 
IFE(21) - 1 THENIFE(40) - 2THENE(40) = 
0:1(40) = J:PRINTDF:FORT= ITO800: 
NEXT:GOTO80ELSEA = BELSEA = D8 

740 IFC2 = "WAL"THENIFE(5) = 2THENE 
(5)=l:E(46)=l:I(5) = J:I(46) = J:A = "YOU 
NOW HAVE AN" + B(5)+"AND A" + 
B(46):Q = Q + 2ELSEA = B 

Finally, several readers have had 
problems after they have been ar- 



EASYTOUSE INTEGRATED SOFTWARE FROM PEL-TEK ■ ALL THREE MODULES, ONLY $99.00 


Word Processing from Pel Tek 

m<Khifte3.0 

FOR TRS304SKModl HI 4' 


1 Proofreading From Pel Tek 

; /peM check/ 

j correct /y/tem ! 

Integrates with the Word Machine 3.0 
FOR TRSS048K Mud 1 Hi 4' 


Communications from Saturday Software 

dblcom 

Integrates with the Word Machine 3 
FOR TRS 80 48K Mod III 4' 


Easiest to use Word Processor anywhere Superb 30.000 Literal Word List 

■ On screen formatting - what you type is ■ Includes prefixes, suffixes, many proper 
what prints on the printer ■ Works with all names and geographic locations 

printers ■ Graphics mode for TRS 80 block ■ Integrates with the Word Machine 3.0 
graphics (printer support needed) without duplicating files ■ Can check 

■ Embedded forms control - to skip ASCII files created by any Word Processor 
lines, eject paper, terminate printing ■ Streamlined menu driven operation 

■ Embedded file retrieval during printout makes it easier to use than any other Spelling 
(called from text) allows chaining a Checker ■ Allows expansion of a secondary 
document to any virtual length ■ Pause User Dictionary with words from your text 
feature- enter data into text line fields ■ Or create/edit your own User Dictionary 
during printout, great for forms or form using any Word Processor ■ Expand the 
letters, especially when used with Multiple main dictionary to up to 60.000 words 
Copy feature ■ Insert/delete characters, automatically with words from the User 
lines, files, anywhere in your text ■ Text Dictionary (Model III) ■ Works with a 
centering ■ Embed ASCII codes in your single disk configuration ■ Does spelling 
text to control your printer ■ Headers, checking AND spelling corrections - no 
Footers, page numbering ■ "Warm start" extra charge for the corrections feature 
from DOS READY ■ Line oriented ■ Full ■ Less than 1 12 the price of any competing 
screen text editing ■ Supports unmodified TRS-80 product, and performs better 


Unique Split Screen for 
Sending/ Receiving 

■ Split screen feature avoids text 
"collisions" in Conference or "C.B." modes 

■ Prepare transmission text lines on bottom 
screen while normal transmissions are 
received on upper screen ■ Large capture 
buffer for incoming /outgoing text 

■ Printer spooling of buffer to save connect 
time ■ Dump buffer to printer, disk or 
communications line ■ Send all 26 ASCII 
control codes ■ Status line shows printer, 
buffer, and UART status ■ Supports 110, I 
300. 1200 Baud ■ Selectable UARTS 

■ Auto Dialing ■ Optional line feed after 
carriage return ■ Optional local echo for I 
half-duplex ■ Access to D. OS. from within \ 
the program ■ Integrates with the Word 
Machine 3.0 to create or edit buffer text 
using Word Processing facilities 


Model 1 for lower case ■ Integrates with based on independent testing ■ Integrates 
Spell Check/Correct and DBLCOM with the Word Machine 3.0 with 
communications packages ■ FREE . . . uninterrupted operation 


PRICES 


STAND 
ALONE 


WITH WORD 

MACHINE 3.0 

INCLUDED 


INDOOR SOCCER and JUMPY arcade 
games included! 


PEL-TEK ^324 

P.O. Box 1026 

Southampton. PA 18966 

Order Line: 1-800 523 2445, Ext. 19 

In PA: 1 800 346 7511, Ext. 19 


Word Machine 3.0 


$35.00 




Spell Check System 


50.00 


$65.00 


VISA • MASTERCARD • CHECK ' Software operaies on 


DBLCOM System 


50.00 


65.00 


Money Orders Accepted . g* ^ 
Add $2.00 Postage and Handling work with j 
Add $3.00 for C.O.D. Scripts* 


will net 
uper 


Spell Check 6t 
DBLCOM 




99.00 
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J/WG Software's YEAR END SPECIALS Continue! 

We've reached into our product line and pulled out the great specials outlined above. We've made some incredible deals, so get em 
quick before the prices go back up. And, of course, we still have our everyday great values as outlined below. Remember, we are THE 
source for TRS-80 Model I. Ill and 4 software! 



LESCRIPT-$94.50 

(By Anitek: list $129.95) We ve made this ex- 
cellent word processor affordable: loads of 
features, great printer support, ease of use. 
and more For models l/lll or 4, makes use of 
extended features on Model 4 including 128K 
RAM if you have it (Ask tor a free demo disk if 
you're not sure about it.) 



ElectricWebster $99.50 

'By Cornucopia list $149 95i A fine 
spelling checker program, inte- 
grates with most word processors 
Has a 50 000 word dictionary, and it 
allows you to add your own words 
also A Grammar-checking option is 
avanaoie 'or $38 50 extra 



TO ORDER: 



DOSPLUS IVa-$109.50 

^By Micro Systems: list $169.95) A great price 
on a great DOS; for the Model 4 this is by far 
the best DOS around It beats TRSDOS 6 in 
speed, versatility, and power. Compatible 
with programs and media for TRSDOS 6; aiso 
comes with the M-ZAL Editor/Assembler pro 
gram and other utilities Most users rate it a 
10 out of 10 on our reply cards! 



KSoft's LOG and SUPERLOG 4 

These "Electronic Notebook" programs are like a 
memo pad" available instantly, even when runn- 
ing other programs LOG is for Model I or III at 
$44 50 SUPERLOG 4 has many advanced features 
and is available *or $99 50 (list $119.50) for the 
Modei 4. Once you start to use it you'll wonder 
how you ever did without it 1 



We accept orders by phone or mail. When ordering please 
specify the Model of TRS-80 you own, the exact program(s) 
wanted, and the method of payment. We accept Check. 
Money Order. VISA, MasterCard, and Gold. Please enclose 
$2.50 for shipping costs. For Electric Webster and Dotwriter. 
please mention your word processor and printer brands. 



DOTWRITER 4.0-S69.50 

(By Prosoft !ist $99 95) Use the full power of 
your printer with this excellent custom- 
character set program Use one of the many 
supplied or available character styles, or 
make your own with the LDS utility included. 
Model I'll I or Model 4 (specify) also specify 
printer brand (Epson. DMP, Okidata. Prownter 
or Gemini). 



TASMON $29.50 

(By TAS: list $39.95) An excel- 
lent machine language monitor' 
debugger Available 'or Model 
l/lll or Model 4 (specify) Loads 
of features, this is one o' the 
best programs of its type. The 
orice will soon go up to $34 50, 
so get 'em quick... 



TAS Journal & Disk: $15.00 

The Alternate Source Programmer's Journal has 
published a Special Issue", full of great infor- 
mation for any serious users and programmers. 



"TOLL FREE" ORDER LINE: 
(416) 389-6086 

Instead of a regular toll free number, we deduct $2.00 from 
your order to pay for your phone charge (which is usually less 
than $2). That way you come out ahead, we come out ahead, 
and everyone is happy. And if you order by mail, ask for our 
Toll Free Discount" and deduct $2.00! 

c Phones are stalled 10 A M lo/PM Monday to Saturday encept Wednesday) 



OUR PRICING POLICY: 

We will beat any legitimate price advertised for any 
product that we carry. If you find a lower price 
advertised, our price will be $1.00 less, under the 
same conditions (eg. same shipping and other 
charges, etc). To receive the lower price you must 
mention the location of the other ad when ordering. 



New • JMG's APPLICATIONS 
"TOP TEN" 

Wjnl !o « r ow **i' •> poouiai m 'he 'RS 80 
Wt*d'e *oic' fit »e .ompiied th« >si ol 
the 'op ten r oicc Msefl di our saes 
e ~.(y:ri ending - Sovemc*' 
-F5CRPT $99 iCil 
DO'WP rffl 4 .174 5Ci 
DOSPLUS $59 50 / $179 50. 

4 TAS Jooi-ai & >s> i$15 00 

5 J0«L0f II $49 5C> 
5 Eecirc rteosir ($118 SO) 
1 TASMCS i$?9 50) 

8 lallynvisre' ■ $54 50 > 

9 A -.j yst/Cslletlor $"9 50 8* 
'0 CbMBlP HI/PW 3UCE i$34 M 



10' :■ 



3 



WRITE FOR OUR 
FREE CATALOG! 



COMMUNICATIONS 

We sell many communica- 
tions/terminal programs, 
and here's a partial listing: 

MODEM-80 $34 50 

LAZYCOMM $29 50 

MTERM $64.50 

MTERM Mod 4 $64.50 

Ultraterm2 $64.50 



JMG's GAMES TOP TEN 

Here it is this month's installment 
m our "Games Top Ten", in order, 
based on sales for one month en- 
ding in November 

1 

1 
3 
4 
5 
6 
7 



Supreme Ruler Plus <tieM$26.50) 
Flight Simulator (tie) $29.50) 
Infocom s Witness ($34 50) 
Planetfall ($34 50) 
Zork II ($38 50) 
Zork III ($38.50) 
Deadline ($42.50) 
Enchanter ($34.50) 
Battle of Zeighty ($8.50) 
Forest Fire Disp. (tie) ($26.50) 
Nuchex (tie) ($14 50) 



OUR GUARANTEE: 

We sell only top-quality software. If. 
however, you are unsatisfied with a product 
you have purchased from JMG. you may 
return it (in good condition) within 10 days 
for a refund, less a $2.50 handling charge 
for programs under $50 ($5.00 for programs 
over $50). We also ask that you send us a 
letter stating the reason for your return. 



J&,. 



SGFTMOF 



THE FINE PRINT: 

Shipping Charges are $2.50 in Canada and U.S. 
Overseas surface shipping is $5.00, $10 for air 
mail. All prices in U.S. Funds. Add $1.50 for COD 
Charges. Model III programs will all run on a 
Model 4 in III mode. 



3235 LOCKPORT ROAD 
NIAGARA FALLS, NY 14305 

ism OR 

710 UPPER JAMES ST. 

HAMILTON, ONTARIO 

CANADA L9C 2Z8 

Phone: (416) 389-6086 






DEBUG 



rested for jaywalking. After falling 
asleep they can move around, but 
can't manipulate objects. This isn't a 
bug! After moving around approxi- 
mately 20 times, the player once 
again wakes up in jail. Because 
you're not actually playing during 
the dream, you can't manipulate 
items. Pay attention to the message 
that appears during the dream — it 
helps you escape from jail. 

Joshua Barinstein 

124647 Victory Blvd. 

N. Hollywood, CA 91606 

"The Direct Approach" (Septem- 
ber 1984, p. 96) does work on the 
Model 4P, contrary to what's stated 
in the Key Box. Also, the following 
changes prevent garbage collection: 
Line 10010 should contain an OUT 
132,142 immediately following the 
POKE, while line 10200 should con- 
tain an OUT 132,135 immediately 
following its POKE. 

Seth Monger 

4694 Coos Bay Wagon Road 

Roseburg, OR 97470 



Please note the following correc- 
tions for "Bugs from Outer Space" 
(March-August 1984). Line 100 of 
Text6B should read: 

00100 ;****PART6B 

Change line 350 of TEXT6D to 
read: 

00350 ERROR 1 JP 7637H ;8637H for Mod3 
TRSDOS 

The buffer for adding scores to 
the scoreboard isn't properly closed. 
The Program Listing corrects this 
problem. 



To assemble Text6E, load the 
completed game using System or 
Load, and then load Text6E. Save 
the complete game as described in 
the August 1984 issue (p. 88). 

Roger Smith 

505 Ridge Lake Road 

Crestview, FL 32536 



Send correspondence to Reader Ex- 
change, c/o 80 Micro, 80 Pine St., 
Peterborough, NH 03458. 



Program Listing. 


Correction 


to "Bugs from Outer Space. " 




00100 


..... 


PART 6 E 










00110 


; CORRECTS BUGS 


IN SCOREBOARD 




749A 


00120 




ORG 


7 4 9AH 


84 9AH 


FOR MOD. Ill TRSDOS 


749A CD1578 


00130 




CALL 


OOPS 




; PATCH 


7815 


00140 




ORG 


7 815H 


8815H 


FOR MOD. Ill TRSDOS 


7815 D5 


00150 


OOPS 


PUSH 


DE 




;SAVE DE 


7816 3E20 


00160 




LD 


A. 32 




;A«SPACE 


7818 0606 


00170 




LD 


B,6 




;6 CHARACTERS 


781A 12 


00180 


O0P1S 


LD 


(DE) ,A 




; STORE SPACE 


781B 13 


00190 




INC 


DE 






781C 10FC 


00200 




DJNZ 


OOP10 




;LOOP 


7 81E Dl 


00210 




POP 


DE 




; RESTORE 


781F CD0362 


00220 




CALL 


6203H 


7203H 


FOR MOD. Ill TRSDOS 


7822 C9 


00230 




RET 








0000 


00240 




END 








00000 Total 


Errors 












OOP 10 7 81 A 














OOPS 7 815 












End 



SUPERTAX 



Get Supertax by Rockware Data 
and get the jump on your 
1984 Income Tax Planning 



THIRD SUCCESSFUL YEAR! • THOUSANDS ALREADY IN USE! 

Use SUPERTAX personal income tax programs to calculate your tax liability now and have plenty of 
time to make year-end investment decisions to improve your position. SUPERTAX was developed 
Dy a practicing CPA with a Master's degree in tax accounting. Highly acclaimed by tax pros, CPA's 
and tax preparers, SUPERTAX is easy to understand and a pleasure to work with. Available for 
TRS-80 (2 drives), Apple II - , IBM-PC, Kaypro II and Sanyo MBC-550 Series. 



SUPERTAX is fully screen-prompted and includes 

a manual loaded with valuable tax information. 

instruction and guidance. 

SUPERTAX instantly recalculates your entire return 

when you change any item. 

SUPERTAX pnnts directly on IRS forms. 



SUPERTAX DATA can be stored on a diskette 
SUPERTAX updates are available at 50% 
discount to registered SUPERTAX owners. 
SUPERTAX is an essential addition to your 
personal software library — best of all it's tax 
deductible. 



FOR TAX PLANNING 

Using either screen or printer output. SUPER- 
TAX generates clear and concise summaries of 
Page 1 and 2 and Schedule A of FORM 1040 
allowing you to see at a glance and to quickly 
comprehend your tax situation This program 
also prints an OVERALL SUMMARY of the 
return showing Adjusted Gross Income. 
Itemized Deductions. Taxable Income. Regular 
Tax and Payment Due or Refund — all of which 
are calculated by the program SUPERTAX also 
calculates the moving expense deduction, 
investment credit, taxable capital gains, political 
and child care credits, medical limitations, and 
much more. Input is fast and easy and changes 
can be made in seconds. This program actually 
makes tax planning a breeze. 



FOR RETURN PREPARATION 

SUPERTAX PRINTS THE INCOME TAX 
RETURN: This program prints page 1 , page 2 
of the FORM 1040, Schedules A. B, C, W and 
G (income averaging) of the FORM 1040 as 
well as FORM 3468 (investment tax credit) on 
standard IRS government forms or on blank 
computer paper for use with transparencies. 
Any item "of input can be changed in seconds 
and the entire return is automatically recalcu- 
lated to instantly reflect the change. 

TRS-80, Apple II'. IBM-PC. Kaypro and Sanyo are 
Irademarks of Tandy Corp . Apple Computer, Inc . 
International Business Machines. Non-Linear 
Systems. Inc and Sanyo Business Systems Corp. 
respectively. 



TO ORDER Send Check or Money Order to ROCKWARE DATA CORP. 
P.O. Box 365, Piano, TX 75074, or call 214-596-0588. VISA and MasterCard 
accepted. Add $3.00 shipping on all orders. TX residents add state tax. 




FOR 

DEPRECIATION 
CALCULATION 

SUPERTAX also includes 
a stand alone depreciation 
program which calculates 
and prints your complete 
depreciation schedule using both the 
old rules and the new ACRS rules. 
Output from the depreciation program is 
designed to serve as a supple- flJQQ 
ment to IRS FORM 4562 <>W 



New -PREPARER'S EDITION: Includes 
all of the above. PLUS, it will also print 
Schedules D, E, SE and FORM 625 1 . The 
PREPARERS EDITION also prints 
preparer data at the bottom of <J» A aq 
page 2 of the FORM 1040. 3> 1 157 



Rockware Data Corporation 
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NEW! Lower Prices!! 

wabash 

six-year warranteed 

DISKETTES! 
$11.90/box (10) 

5 '■•' single -side, single-density, double-density 
add $2 'box Add $3 per order snipping in Illinois 
add 7*o sales tat 

Library Case-$1 .50 (with disk purchase) 

'mmediate shipment on VISA. MasterCard or 
Money order, add 14 days (or personal checks 

CALL TOLL FREE — 
(800)222-1248 * 
In Illinois Call (312) 882-8315 

DEALERS! SCHOOLS! USER GROUPS! 

Call for our volume discount prices' ^357 



DIGITAL IMAGES 

1 185 Tower, Schaumburg IL 60195 



LNW SERVICE 

QUALITY REPAIRS ON ALL 

LNW FACTORY ASSEMBLED 

PRODUCTS INCLUDING: 

• TEAM AND ALL LNW80 MODEL 
COMPUTERS 

• SYSTEM EXPANSION II 

• LNDOUBLER AND LNDOUBLER 5 8 

• LNW DISK DRIVES 

COMPUTER UPGRADES: 

•CP.M2.2 

• HARDWARE 80 x 24 

• MODEL 4 UPGRADE 

• TEAM UPGRADE 

OTHER PRODUCTS AVAILABLE: 

• HARD TO FIND LNW PARTS 

• LNW SOFTWARE 

Editc Note 

This space open to' specials! 

WILSON TECHNICAL SERVICE 



8 00 AM'5-00PM(PS'n 
VOICE 714-531-8136 



AFTER 5 00 pm(PST) 

DATA 714-531-8136 

3001200 BAUD 

^123 



Attach Your Printer to 
SuperSCRIPSIT 

£•»»* ana MomMcaVy attec* four pnMar to SupecSCiPSrr «Mh m ALPS 
tolimv driver program Oni 100 dl'ierent pr/nien lupporred No »om to 
warn space cooee Cm or map lor Meet Product «evie« Sheet Oeecntwic. 
'•«-'« eupponed or Men printer tunoerline. Bold proporhonai etc) Ten year* 
eaperavKe Cueior-ier euppon 

S49 o> I6S each oepe-3 - ; on -r-nte' 

Use Memory as Superfast Disk 

Mod 4(111) tt. 

Speed op prodrome By ualng ,our eilre memory aa a drhre Uaa la W eP tK 
ee your Sytlem Orlre. or load • «i -10 "lemory'or Inilant ecceit 

M No p-ogra- .'•"gee reou red !o acceia MEMDtSK aa I" 
I awe t «■>• d"ve A' ent ra MEMDcS« car qun*» and eaaey m ured to (or 
HMKMd mxn) floppy *«• v)aaa MK o> i»K -w- M if not only.) 



TIME-SAVERS FOR 
TANDY 2000 

(and IBM PC) 
IMPROVE PERFORMANCE & FLEXIBILITY 

OF YOUR PC APPLICATIONS 

Us« Memory as Suptflatt Disk u« 

RAM0I9K Uae apere memor, a> a oa* to apeed up appecaeone I you epec*> 
RAMOIS* we i Aopee-i K prog>emi at • on. Bur ome MaM accost Eaayto 
Wee* end u*e Supe*a»r 

Direciory / File / Backup Tools *s» 

I. OMp'ey a'p*aMli/a<f S column directory IHHnoi. tf e* a" r • rectory at a 

pence on I WW 

». find • Ilia search thru a! ctrectonee tor • lite name enc Oap-a, ai 

occurrences 

,' Orreciory free • diaplay dMadpty Ma aaueluia Better any name in aaatly 

•eadaole "otm 

« Sac I up ooi, mo4IH*d litm apaad up and automata backup operekon . Stores 

» erne kxiaal aa ongesej Mr ovacl aceaaa QnM tor hard dtaaal 

Ussf Tool Assortment $sa 

I Oaano a command aaonaaay e^ytoerdaaJ-leeelHWio, and leaser data er*y 

=v aeVr no. any command *Wnf aa 1 key. men praaa nay to perform 

1 CeuMMeeonMee Oapajya count. 

3. Dump set » Hei end oflenacter (w*i acroamg) 

a Oeno* owners/ec 1 ermevtet o» Mai You can make Maa iwjdan. readonly 

01 >esat to angmai 

Attach a Serial Printer ~~ tat 

(Man 2 aaay c omman d s, you can audi a aanal ptrMer to me 1*3 233 port 



More ALPS Toot are evaaeott Ca« V eatie tor catalog AI product! 
guaranteed » partom aa odvor f od trVa prowM kit cuatomar aupport 



ALPS 

23 Angus Road 
Warren. New Jersey 07060 

201-647-7230 



• DISPLAYS CORRECT SPELLINGS: 

If you don't know the correct spelling. 
EW will look it up for you. and display 
the dictionary. 

• VERIFIES CORRECTIONS: If you 

think you know the correct spelling of 
a word, EW will check it for you before 
making the corrections. 

• HYPHENATES ALTOMATICALLY: 

(Optional i. Inserts discretionary hy- 
phens throughout text. 

• GRAMMAR* STYLE CHECKER: 

(Optional). Identifies 22 types of com- 
mon errors. Makes suggested cor- 
rections with the stroke of a key. 
Runs within EW. 

• 50,000 WORD DICTIONARY: Uses 
only 2 u i bytes per word; add as many 
words as you wish. 

• FAST CORRECTING: In as little aa 

30 seconds, Electric Webster can return 
you to your Word Processing program, 
with your text fully corrected and on 
your screen. 

• INTEGRATES: into 12 different word 
processing programs: WordStar. Spell- 
binder, Palantir, NewScript. Lazy 
Writer. SuperScripsit, Scripsit. Elec- 
tric Pencil. Copy Art. Superscript. Zor- 
lof, and I^eScript (specify. Begins 
proofing at the stroke of a key; returns 
you to word processing automatically. 




W( ebster 

SPEUJNGCl 




"The Cadillac" 

of spelling checktr- 

80 Microcomputing, 9182 

VOTED #1: For the second straight year. 
Electric Webster was voted the #1 spell- 
ing checker in the 80 Micro Reader's 

Choice Awards. (1/83, 1/84) 

"The most helpful program I've found is 
Electric Webster. After looking at nine 
proofreading programs. I've settled on 
Webster . . "Creative Computing, 11/83 



I hi-, dictionary U not published b\ thr original publish* 
Webster's Dictionarv or their successors 



ACCLAIMED: 

"Electric Webster is the best. Just read 
any review in any magazine and I don't 
believe that you will tind even one dis- 
agreement to that statement" CINTl : (i. 
Cincinnati's Users Group Mag., 4183 

"Now there's a program called Electric 
Webster that would let me write to 
Presidents and Kings and never feel em- 
barrassed. Miss Mulberry would give 
Electric Webster an A + . and so will you " 
Computer User, 1184 

Performance "Excellent". Documentation 
"Good"; Ease of I'se "Excellent": Error 
Handling "Excellent". Info World, 8/82 

LOW PRICES: 

TRS-80 Electric Webster $ 89.95 

w/Correcting Feature $149.95 

Hyphenation $ 49.95 

Grammar & Style Checker s 49.95 

CP/M. PC/DOS or MODEL 2000 

Electric Webster $209.95 

(with Correcting Feature) 
Hyphenation Option Included* 

Grammar & Style Option Included* 

*Limited Time Only 




Vffl 



CORNUCOPIA 
SOFTWARE 



(415) 524-8098 
Post Office Box 611 1 Albany. California 94706 



See List ol Advertisers on Page 145 
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T/Maker: Functional CP/M 

Integration 



by Eric Grevstad 



edited by Ryan Davis- Wright 



The age of integrated 
software didn't be- 
gin with the IBM PC and 
Lotus 1-2-3. Since 1980, 
programmer Peter Roizen 
has been merging CP/M- 
80 applications into 
T/Maker, fitting the soft- 
ware concept of today 
with the hardware and op- 
erating system of yester- 
day. T/Maker includes 
word processing, spread- 
sheet, and data base man- 
agement capabilities in 
one package. 

The latest T/Maker 
(version 4.01) is no threat 
to new PC packages like 
Lotus' Symphony or Ash- 
tonTate's Framework, but the CP/M 
world has nothing else like it. If you 
have the patience to leam its syntax, 
T/Maker delivers genuinely flexible 
integration. It's an impressive piece of 
programming, as long as you don't 
compare it to dedicated word pro- 
cessors or spreadsheets. 

A Clean Slate 

To give T/Maker a high compli- 
ment, it's as close to a blank sheet of 
paper as a Model 4 program can get. 
When you boot up the system, 
it presents you with a blank screen 

T/Maker has a switchable menu to 
execute its English-language com- 
mands and supplies on-line help for its 
sometimes cryptic keyboard func- 
tions. While the program may seem 
difficult to use at first, T/Maker tries 
to make things easy for you. 

Don't be afraid when you open the 
box and five disks fall out. You'll need 
the first disk each time you start the 
program (and whenever you want 
help), but you'll do most of the work 




with the second (editing, spreadsheet, 
data base, and printing) and third (list 
processing, graphics, and spelling 
checker with 15,000-word dictionary) 
disks. The fourth disk contains a 
35,000-word auxiliary dictionary, and 
the fifth is a demonstration/tutorial. 

Since T/Maker usually reserves 
drive B for data, you'll be swapping 
program disks in and out of drive A. 
Invoke a disk-3 command with disk 2 
in the computer, and a "Command 
Failed: Nonexistent" message prompts 
you to try again. 

You can change the data drive or 
other defaults with a program called 
TModify, which also lets you recon- 
figure the T/Maker keyboard rather 
than use its standard pattern, awk- 
ward for things like cursor movement. 

Some of this has already been done 
for the Model 4/4P version. The ar- 
row keys function and an addendum 
to the manual tells you how to emulate 
other CP/M terminals (the TRS-80's 
break key works the same as others' 
escape keys, and control-L replaces the 



missing tab key). While 
T/Maker comes config- 
ured for 128K RAM and 
CP/M Plus, it also in- 
cludes set-up instructions 
for Montezuma Micro's 
64K CP/M 2.2. 

Commands 

And Conversations 

While other programs 
prompt you with question 
marks, T/Maker's inter- 
face is a chatty "What 
Next?" You answer it 
with English commands: 
"Create" starts a new file 
and prompts you for a file 
name, and "Edit" brings 
you into the file. You can 
save time by entering com- 
mands together (Create 
Newfile Edit, or Align 
Save Print It), though the instructions 
grow less grammatical as they grow 
more detailed; Print Nonstop From 10 
To 30 It, for example, prints pages 
10-30 of the current file without for- 
mat queries. 

Many of T/Maker's vital com- 
mands only work downward. A com- 
mand to align or print text, for exam- 
ple, affects only the portion of the 
current (RAM-based) file below the top 
line shown on-screen. In most cases, 
you'll either move to the top of the file 
beforehand or use T/Maker's framing 
command, which is similar to a spread- 
sheet's ability to freeze a column of 
labels while viewing other data. 

T/Maker's most important com- 
mand, though, doesn't directly affect 
anything. Edit (E) removes the "What 
Next?" prompt and activates T/Mak- 
er's editor, the heart of the T/Maker 
system. It's a free- form program that 
lets you put anything you want any- 
where on the screen, but it's a slight 
exaggeration to call it a word pro- 
cessor. 
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You create every T/Maker file, 
whether it's a document, spreadsheet, 
or data base, through its editor. 

As mentioned, the editing screen is 
initially blank. Pressing break and 
then the ? key calls up a status line 
that indicates the current file's name, 
length, free space, current cursor posi- 
tion, and carriage-return mode. (To 
explain the last, break-R rotates 
among manual returns, word wrap 
after 63 characters, and spreadsheet- 
style horizontal scrolling, while break - 



T/Maker Integrated 
Software 

*** 



T/Maker Company 

2115 Landings Drive 

Mountain View, CA 94043 

415-962-0195 

Models D, 4/4P (requires CP/M), 

Tandy 2000 

128KRAM 

Two disk drives 

$450 



Easy to use? 


* -fc it it it 


Good docs? 


• •••* 


Bug free? 


• • * • it 


Does the job? 


• ••£•"& 



1 toggles an insert mode. A ruler below 
the status line helps you set margins 
and tabs.) 

Running under Model 4 CP/M, the 
editor suffers from poor typing re- 
sponse and keybounce (if I were using 
it to write this, it'd be a review of 
Tt/Mmaker) and it lacks some useful 
functions, such as cursor movement 
that wraps around lines or a way to de- 
lete words as well as characters. There 
are no true block-move operations, 
but you can copy lines one at a time in- 
to a 40-line buffer for movement (first 
in, first out) elsewhere. 

On the positive side, the editor's 
embedded print commands are con- 
venient: ".single" and ".double" 
control line spacing, and ".newpages" 
starts a new page if fewer than five 
lines are left on the current one. Foot- 
notes are handled automatically, and 



search and search-and-replace func- 
tions (break-' and break-" respective- 
ly) are fast and accurate. 

Words Under Wedges 

Oddest of all is T/Maker's ap- 
proach to margin setting and justifica- 
tion. Instead of embedding com- 
mands or keystroke sequences, you set 
line width by typing in pairs of wedges 
(« ») delimiting text boundries. 
The wedges shape the text below until 
T/Maker encounters the next set of 
wedges. Minor changes, such as a 
right wedge of - » versus », yield 
justified, ragged, or centered copy for 
block-style or indented paragraphs. 

T/Maker doesn't format text until 
you leave the editor and use the Align 
command, which reads the wedges 
and adjusts the text accordingly. It 
also runs paragraphs together unless 
there's a blank line or a single period 
between them, turns columnar tables 
into prose if you forget the "do not 
align" wedges (» «), and puts two 
spaces after question marks, exclama- 
tion points, and periods (including the 
one in Mr. Jones). 

While T/Maker's word processing 
features make you long for Scripsit, its 
spelling checker is quite good, in an 
odd sort of T/Maker way. Entering 
the Proof command (with the first line 
of your file at the top of the screen) 
produces a handy table tallying the 
file's total number of words, unique 
and unfamiliar words, and the average 
number of characters per word and 
words per sentence. 

When you return to the editor, 
you'll not only find the unrecognized 
words tagged in your file but a double 
list, with two copies of each offending 
word per line, appended to it. Fix the 
second sample of each word and it'll 
be changed throughout your file when 
you issue the Correct command, or 
added to the dictionary with Amend. 
You can even ask for help, changing 
the second sample to something am- 
biguous like "rhy?hm" and asking 
T/Maker to spell it. 

Monster Math 

I also like T/Maker's skill with lists 
and tables. Once you leam the lingo, it 
sorts and shuffles columns of data 
easily and quickly. If the first item is at 
the top of the screen, the command 
Sort AN 12 32 puts the numbers in 
columns 12-32 in ascending order. 



You could also sort a list of charac- 
ters, or sort in descending order. 

A similar command, Tally, is more 
explicitly mathematical. It takes lists 
(files with plus signs in the first column 
of each line), breaks them into cate- 
gories by column number and, if you 
want, sums the numeric values associ- 
ated with them. For example, I could 
tally the second and third columns of a 
list of dinner guests, their sex and their 
ages, and learn there were three males 
and four females, with combined ages 
of 82 and 103, respectively. 

The further you get into mathemati- 
cal work, though, the more T/Maker's 
word-based structure hinders you. It 
works best with vertical lists. With 
plus and minus signs running down 
the left margin and an equals sign at 
the bottom, the Compute command 
can solve the list as if it were an alge- 
bra problem. 

Beyond this, you're into T/Maker's 
spreadsheet. Like its other program 
features, the spreadsheet is great at 
merging data into business letters but 
terribly difficult to master. If you can 
imagine a word processor with no De- 
lete Word function, imagine a spread- 
sheet with no cells, parentheses, or 
automatic recalculation for "what-if ' 
changes. 

T/Maker's way of defining column 
widths (up to 50 computable columns) 
isn't necessarily bad. The top line of a 
spreadsheet is an example line (la- 
belled "ex") and contains maximum 
width numbers such as 99,999.99. Any 
numbers below them, even if not per- 
fectly lined up, will be realigned to 
match the examples (with or without 
commas, and with the same number 
of decimal places). 

The rest is like VisiCalc in reverse 
Polish notation. All mathematical 
functions (from + and / to exp and 
abs) appear not in row and column in- 
tersections, but externally, running 
down the left side or across rows atop 
or between spreadsheet entries. This 
system works for simple sums, but cal- 
culating a specific cell without any- 
thing like a cell formula is murderous. 
In addition, T/Maker doesn't use 
parentheses. Its inflexible method of 
operation is to do all additions, sub- 
tractions, multiplications, and divi- 
sions in that order. To overcome this, 
you must sprinkle the spreadsheet with 
instructions: acl (first step, compute 
for all subsequent rows), jc2 (second, 
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just compute for the next row), rc3 
(third, rarely compute only on subse- 
quent rows derived from other rows). 
After studying the manual's ex- 
amples and typing them in, I'll admit 
that T/Maker's spreadsheet can do 
some sophisticated things, such as 
built-in notations for functions like 
growth rate and rounding interim 
values. But doing them requires learn- 
ing a whole new approach (even 
stranger than dBase II language) that 
applies to no other spreadsheet on the 
market. The system almost requires 
enough pre-planning with pencil and 
paper to defeat the whole purpose of 
spreadsheet work. 

Keeping Records 

Clearly, the spreadsheet is T/Mak- 
er's worst feature. I'm a lot happier 
with its data base manager which, 
while requiring similar pains in setting 
up, performs swiftly and capably once 
the job is done. 

The data base, as you'd expect, is a 
text file created with the editor. It 
begins with sections (<form>... 
<end> and <record>. . .<end>) 
describing how a record will appear on 
the screen and how T/Maker will file 
it. A record can have up to 120 fields 
of 80 characters apiece, with field 
lengths defined by curly braces (left- 
shift/® and right-shift/@ on the 
Model 4 keyboard). 

Once you define a data base, the 
Update command works much like 
the regular editor, letting you review 
or alter records one at a time (the 
search function for individual items is 
unchanged, the "next word" cursor 
movement command becomes "next 
record"). As with lists, you can rear- 
range a data base alphabetically or nu- 
merically, in ascending or descending 
order. 

For more precise work, the Select 
command finds groups of records 
easily. Altering all the records in a data 
base is as easy as reentering the file, 
changing the form and record defini- 
tions, and adding another definition 
for use with the Set command (such as 
Status = Prime When Income > 
$50,000). 

T/Maker is no R:Base or Profile, 
but its data base is a nice variation on 
the text-oriented theme. When using 
Update, for example, the break-? sta- 
tus line changes from an editing ruler 
to an indication of how many more 



records of the current length can fit in 
a file. 

Mixed Impressions 

There are other good things about 
T/Maker. While it doesn't have win- 
dows, the List command lets you look 
at a second file without losing the cur- 
rent one in RAM. It's a breeze to 
chain, merge, and insert different files 
of different types for printing (one 
print command strips away ugly ex- 
ample and instruction lines from the 
spreadsheet). 

The command menu is handy for 
beginners, though users will soon skip 
it in favor of stringing together multi- 
word commands. The help screens are 
excellent: well-organized, well- written, 
and valuable even to seasoned users 
who haven't used a particular function 
in a while. 

And the documentation is first-rate. 
There is a superbly organized 400-page 
manual and two reference booklets, as 
helpful and readable as anything I've 
seen in some time. It's relevant to re- 
member that T/Maker has been 
around since 1980, gathering a group 
of hardcore fans. It's not only 
thoroughly debugged, but thoroughly 
documented. 

I also used T/Maker on the Tandy 
2000, and liked it better on that ma- 
chine than on the Model 4. It was con- 
siderably faster, not so much in terms 
of commands like Align (for which 
T/Maker goes to disk) but in terms of 
general feel and responsiveness. The 
2000 T/Maker has a full invaluable 
implementation of function keys: 
PgDn sure beats break/control-P for 
"move to end of line." 

Is T/Maker worth $450? It's cer- 
tainly worth the increase from the 
prior version, T/Maker III (still avail- 
able at $275, but with no spelling 
checker, no data base, and no on-line 
help). It does look good when you 
compare its cost to several separate 
programs, which aren't able to merge 
or create such versatile files. And none 
can compare to its blank-paper ap- 
proach only now being seen in MS- 
DOS products like Aura and Enable. 
On the other hand, the standalone pro- 
grams beat T/Maker's performance in 
some vital areas. 

T/Maker is an extremely versatile, 
somewhat awkward text editor with 
fast and intelligent search functions 
and limited mathematical capabilities. 



If Framework is the sleek new Porsche 
of integrated software, T/Maker is an 
old Plymouth Road Runner with a big 
V-8 and a bad clutch. While it may be 
inefficient and hard to maneuver 
around town, it has great power and 
performance on the straightaway. 

I wouldn't choose T/Maker's editor 
over a real word processor and I 
wouldn't choose its spreadsheet at 
gunpoint, but it's the closest thing to 
real integration that CP/M will ever 
see. It is certainly worth considering. 
If you only want to learn one set of 
commands, it's worth using. ■ 




Photo. The CGP-220 printer. 

Color Me Beautiful: 
Radio Shack's CGP-220 
Color Printer 

by Bradford IS. Dixon 
80 Micro Technical Editor 

Radio Shack's CGP-220 ink jet 
printer is compact, quiet, and 
colorful. But the CGP'S most remark- 
able feature is its low price: For $699, 
home computerists and small-business 
users can get high-quality color print- 
outs of screen graphics. 

The CGP-220 is compact (15 3 / 4 by 
11 5/8 by AV* inches) and lightweight, 
weighing only a little over 12 lbs. It has 
a spare and uncluttered design, with 
the operating switches on the unit's 
right front side. The Ready, Alert, and 
Power indicators are also located 
there. The Reset, Paper Feed and On/ 
Off line switches are touch sensitive, 
lying flat on the front. 

The slots for the ink jet's color and 
black ink packets are hidden from 
view by a door on the front. The ink 
packets come inside plastic cartridges 
so you never handle the ink. On the 
left, underneath the paper cover, is the 
ink pump. Before you can do any 
printing, you have to prime the ink jets 
with a few short pushes on the green 
pump lever. 
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FEATURES 

• File iranilvts with remote operation ol TBS 80 Model I or III from a terminal 
- transfer 'iles from or to an unattended computer 

• E "or Ire* tile transfers with another TRS-80 or a computer using Itie CP / M program "MODE HP, used widely on 
computer bulletin boards (CP/M user Group disk «2S) 

• Conltgured tor use with M.croNet the Source. Forum 80 Redefine parameters, character set. control char ac • 
tars to interface with Dow Jones. WeelLaw, and other BBS Electron* mail capabilities 

• Written m assembler code lor speed and minimum memory requirements. 110IO96O0 bps Baud Rate Function 
Key Template. Novice and Advanced Level Documentation. mde» and Glossary 

BENEFITS 

• Handles Me* ol unlimited length, even in a 32K system and 1 disc drive With the XMOOEM/CMD utility, tiles 
may be transferred with a 16K computer 

• Prepare file oil line with word processor, or included program SAVE /CMD" It first transmission attempt tails, 
data is still safety on disc and available tor a second try 

• Open Transmit/ Receive (T I R| tiles before going on line Toggle T / R tiles On /Oft independently In specialized 
application, T/P different files simultaneously Control codes for remote operations 

• Transmit single lines from a file allowing transmission to be inter muted with keyboard input, providing more 
■enble response to prompts from the remote Permits Me transfer to a system that cannot accept full speed 
transmission or does not use control codes to start /slop file transmission 

• DOS commands and programs which execute in the lower 16K may be eiecufed while maintaining position in 
T /R files Previous screen contents restored at completion ol DOS command 

• Over 2000 satisfied users since 1961 

NEW ENHANCED Model 4 Version - 

Has all l/lll features PLUS: 

■ Menu-prompted Configuration and Save To Disk tor 1) Formal options and/or Terminal Settings 2) Code 
Translation Tables for Transmit, Receive. Video. 4 Printer. 3) Control Code Table 4) Toggle On 'Off options of 
Line Feeo laccept/ drop). Send Slowly a Receive Disk Butler SI Timed Character and /or Line Delay setting. 6) 
Set Prompt Character 

• Specific Transmit /Receive commands for CP/M or MSDOS !e»1 files 

• J«i ire optional 64K RAM as Receive Buffer • System Status Lines 

BENEFITS: 

• Configurations easily defined tiom menu Load Irom disk individually or as a set lor specific Most protocol, 
either from within program or on bootup 

• Permits comparability with a vast array of computer networks and provides a high level ol custom- ration, 
including use of your own encrypted codes 

• Download larger tiles from Bulletin Boards without losing data 

• MOOEM to is 100S Radio Shack compatible and Is fuNy supported by tie author Leslie Mikeseli. 



MODEM 80 Model l/M sells tor only $39 96 - $2 00 SAM 
MOOEM 80/ MAX (Lobo) sells tor only $49 95 - $2 00 SaH 
MODEM 80 Model 4 sells lor only $79 95 - $2 00 S4M 
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We occasionally make our mailing list available to 
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mailing label and mail it to: 

CW Communications/Peterborough 

80 Micro 

PO Box 981 

Farmingdale, NY 11737 
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companies or organizations. 
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s See List ol Advertisers on Page 14b 



80 Micro, January 1985 • 37 



REVIEWS 



■U 



Figure 1. The CGP-220 took about three 
minutes to make this screen dump graphic. 

The power cord connector is on the 
back, with parallel and serial interface 
connectors, as well as a 600-/2,400- 
baud switch. 

Features and Performance 

After you're acquainted with the 
machine and have inserted one of the 
three sheets of paper included with it, 
you can start printing. While the print 




Figure 2. All the designs were printed clearly, 
with no color bleeding. 



speed is an unimpressive 37 characters 
per second (for the full ASCII and 
special-character sets) this is of little 
importance, since you'll probably use 
the machine almost exclusively for 
graphics. In the graphics mode, the 
CGP-220 moves along at 2,630 dots 
per second and features bidirectional 
scanning. The printout in Fig. 1 . took 
about three minutes to produce. 

The ink jet prints in seven colors 
(black, red, green, blue, yellow, 
magenta, and violet) by mixing the 
yellow, magenta, and cyan base colors 
from the color packet cartridge. Even 
the most demanding designs are clear 
and sharp, and none exhibit color 
bleeding (see Fig. 2). 

The quality of the paper used to 
produce the screen printouts makes a 
lot of difference in its final ap- 
pearance. The CGP-220 will print on 
cut sheets or on roll paper, but not on 
form- feed paper. Radio Shack sells 
roll paper (catalog number 26-1333, 
three rolls for $9.95) and single sheets 
(catalog number 26-1341, 250 sheets 
for $6.95) for the ink jet printer. While 
I tried other types of stock, including 
high-quality bond paper, photocopy 
machine paper, form-feed paper 
(without the pin holes), and special 
paper from a Diablo ink jet printer, 
the Radio Shack paper produced the 
best results. 

Using the CGP-220 

The easiest way to use the ink jet 
printer is in the text mode, the default 
mode at power-up. You select the col- 
or of print desired and whether you 
want normal or elongated characters 
as the print style. You can issue print 
commands in all print modes from Ba- 
sic without the cumbersome use of 
DIP switches inside the printer. 

While print quality in the text mode 
isn't as good as Radio Shack's other 
dot-matrix printers, it is readable. 

The CGP-220 was made to create 
graphics and in that capacity it per- 
forms superbly. When you use it with 
Tandy's Model 2000, which has one of 
the best screens available for color 
graphics, you lose virtually none of the 
resolution in transferring a picture 
from the screen to paper. Although 
there are differences in color because 
of code incompatibilities in the com- 
puter and the printer, you can avoid 
these with careful programming. 

The MS-DOS disk that comes with 



the Model 2000 contains a screen 
dump program for the color printer 
(CGPDMP.BIN) which you call from 
Basic when you want a screen dump. 
On Radio Shack's Color Computer, 
another screen dump program is avail- 
able that transfers intricate designs 
from the CoCo's screen onto paper. 

CGP-220 users don't have to use a 
Model 2000 or a CoCo to get a lot out 
of the printer. Programmers using the 
Models I, III, or 4 can also take ad- 
vantage of color graphics by program- 
ming the printer directly from Basic in 
the CGP-220's bit-image mode or the 
color-scan mode. 

The bit-image mode lets you ad- 
dress each of the 640 horizontal dots 
per line and seven vertical dots to pro- 
duce colorful designs and business 



CGP-220 Color 
Printer 

**** 

Tandy/Radio Shack 
One Tandy Center 
Fori Worth, TX 76102 
$600 




Easy to use? * * * * ft 
Good docs? * * • ir ft 
Bug free? • • • • ft 
Does the job? * * * * ft 





graphics without a color computer. Of 
course, the biggest drawback to using 
one of Radio Shack's non-color com- 
puters is that you can't see what you're 
creating until it's printed. Another 
disadvantage of using a Model III or 4 
with the CGP-220 is that you can't use 
the screen dump command to produce 
hardcopy because the character set in 
the printer does not recognize TRS-80 
block graphics. If you press the shift/ 
down-arrow/asterisk key combina- 
tion on a Model III, any block graph- 
ics on the screen will appear as periods 
on the CGP-220. 

The color-scan mode on the ink jet 
printer is similar to the bit-image 
mode, but allows for greater manipu- 
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lation of color. This mode uses large 
amounts of memory, however, and 
programming in it is difficult from 
Basic. 

The Documentation 

The printer's manual makes using 
the machine effortless. It's well- 
written and easy to understand, with 
examples to illustrate the CGPs capa- 
bilities. 

The manual's lengthy table of con- 
tents directs you to areas that describe 
advanced features without searching 
through the 52-page book. Separate 
chapters in the manual describe the 
process of color printing, setting up 
the printer, descriptions of the various 
control codes, and lessons on the three 
kinds of printing available with the 
CGP-220. 

Radio Shack also provides extensive 
appendices with additional program- 
ming tips, care and maintenance sug- 



While the text quality 

isn 't outstanding, 

it's adequate as 

dot-matrix printers go. 



gestions, troubleshooting aids, and 
schematic diagrams of the machine. 
Any user can get the most out of the 
manual whether a novice or a seasoned 
programmer. 

Conclusions 

With a machine like this, you'll 
want to try out different color com- 
binations and graphics. The CGP- 
220' s ink cartridges let you print up to 
4 million characters before you have 
to replace them. Replacement ink car- 
tridges cost $9.95 for the black ink 
pack and $14.95 for the tri-color. I've 
used the CGP-220 for many complex 
screen shots for three months and still 
have plenty of ink left. 

While the text quality isn't out- 
standing, it's adequate as dot-matrix 
printers go. In terms of the graphics 
this machine produces, it's tough to 
beat for the price. Radio Shack has the 
CGP-220 listed with their Model 100 
and Model 2000 as part of their Ad- 
vanced Technology Series of prod- 
ucts. ■ 



Programming with 
The Producer 

by Hardin Brothers 

The Producer won't land you a job 
in Hollywood, but it will let you 
create your own Basic data-handling 
programs with a minimum of bother. 
Even if you know nothing about pro- 
gramming, you can develop your own 
powerful data base managers. And if 
you're only moderately skilled in 
Basic, The Producer will create work- 
ing program modules that you can 
easily add to your own software. 

The longer I used The Producer, the 
more impressed I was. After only one 
month, it had found a place among 
my most-often-used software. 

Using The Producer 

The Producer comes in a hefty 
package that includes the documenta- 
tion (several hundred pages) in a three- 
ring binder with reference dividers; a 
sample evaluation disk; the master 
disks, which include automatic back- 
up routines; and a three-hour cassette 
tutorial, which helps you through any 
rough places in the documentation. 

The easiest way to explain how The 
Producer works is to describe how you 
would use it to create a data-handling 
program. When you boot up the Pro- 
ducer's master disk, an Auto program 
reserves some high-memory space and 
runs the main program. When the menu 
comes up, you turn on the printer, 
press the A and 1 keys, and print a 
planning form. 

Using the form, you pick the pro- 
gram's name, state its main purpose, 
list the fields you want included in 
each record, and make any calcula- 
tions that your program will apply to 
those fields. 

Then return to the main menu, for- 
mat a disk, and start to define your 
program. The Producer comes with a 
stripped-down version of DOSPLUS 
3.4 that you must use to create the pro- 
gram, although you can transfer the 
completed program to any DOS. 

The Producer includes a more- 
than-adequate editor to create an in- 
put screen for your program. You can 
mix graphics and text, and add large- 
font letters, borders, message areas, 
and field areas. 

When you're satisfied with the 
screen's appearance, The Producer 





The Producer 


Professional Program 
Writer 


***** 


Software of the Future 

P.O. Box 1245 

Arlington, TX 76004 

Models I, m, and 4, 48K RAM 

Two disk drives 

Printer optional but recommended 

$199.95 




Easy to use? ***** 


Good docs? ***** 


Bug free? ***** 


Does the job? ***** 





translates it into lines of Basic and 
then goes to a screen definition mode. 
It asks you to define the location and 
length of each of your fields, as well as 
the characters allowed for input for 
each. You must also define an area for 
The Producer to use for messages. 
There is an optional custom prompt 
area in which you can display mes- 
sages that will help the program's op- 
erator respond to each field question. 

After you draw and define the 
screen, you enter a mode called Edit 
Basic Data. Here you can create cus- 
tom prompts for each of the fields de- 
fined earlier. These prompts will ap- 
pear either when the program's user 
begins to enter data in each field or 
when he presses the clear key; the 
choice is yours. 

Also, while in the edit mode, you 
define the calculations to be used on 
the numeric data in various fields. 
You may decide to either save the re- 
sults of the calculations along with the 
rest of the information in each record 
or display the results for the user's 
benefit. 

The First Draft 

Finally, you're ready to create the 
first draft of the finished program. 
One of the selections from the main 

Continued on p. 160 
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CALENDAR 




TAKES NO 
USER RAM! 




MasterCard 



AMIBKAN 



f) 



CALCULATOR 



REQUIREMENTS 

Montezuma Micro CP/M* 
2.2 version 2.2 1 + 

128K RAM 

Model 4 or4P 

8-bit Fever 




Pop Up Menus! 

$49 

Easy to Use! 



INDEX 
CARD FILE 




A touch of the keyboard opens a window in your screen for- 
a Note Pad, an Appointment Calendar, a Calculator, even a 
Mini Data Base. All yours for just $49! Need RAM? Monte's 
Christmas gift to you - 64K and the window, both for $99! 

Once Upon A Time, 

Monte Zuma, our Founder, President and King, has always had trouble keeping his desk 
organized. The Sidekick 1 " from Borland International would solve the problem, but alas, it 
was not available for CP/M®. So Monte asked his favorite nephew, the legendary LaMont 
E. Zuma (distant cousin to Rondo Talbot, a direct descendant of Monte Zuma hisself) to 
work on the problem as best he could during recess at the home. LaMont, a true legend in 
his own time, really outdid himself this time. A touch of both shift keys halts your 
application program in its tracks and up pops Monte's Window" ready to use. What 
could be simpler? Put an end to the fumbling and pawing around the pile of papers on your 
desk. You will find Monte's Window™ indispensable. When you are finished, break back 
to your application program and it resumes without error. Monte's Window™ is truly a 
breakthrough. See for yourself - Look through Monte's Window™ on your Model 4. How 
did you ever get along without it? See the page opposite for order information. Monte's 
Window™ is available right now. 
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CP/M . . .The Software Key 
That Unlocks Your Model 4 

CP/M is the standard 8-bit Z-80 operating system and many thousands of programs have been written to run under this 
system. With Montezuma Micro's CP/M you can run these programs on your Model 4/4P. Think about all those nationally 
known programs you've wanted to use. Programs like WordStar, dBASE II; SuperCalc; MultiPlan etc. With our version of 
CP/M 2.2 all those public domain programs on bulletin boards across the USA are available for free downloading. CP/M is 
the missing link that joins all this software to your Model 4/4P. Montezuma Micro'sCP/M comes ready to use and requires 
no hardware modifications. This product has been awarded the best and highest ratings in the reviews and we are 
continuously improving it with you in mind. With our CP/M you get more than just a DOS. You get the other half of your 
Model 4/4P. 

AVAILABLE NOW FOR IMMEDIATE SHIPMENT - Less Hard Disk Drive Support $1 69 

Optional Hard Disk Drive Support $ 30 

(Radio Shack 5M. 12M, 15M. 35M • Aafocomp/Percom 5M, 10M. 15M, 30M • BiTech 5M, 10M, 11M, 15M, 20M. 30M, 40M) 



FEATURES 

• Full range of floppy drive support. Dual-head and/or 80 
tracks. 

• Optional hard disk support allows positioning and selective 
assignment of logical drives. Easy backup routine. 

• Memory drive allows the use of the other 64K RAM bank 
on 128K machines. 

• Modem 7, a powerful public domain communications 
program furnished at no charge, allows for file transfer and 
remote database access such as CompuServ and The 
Source. 

• CONFIG is our flexible utility that allows complete control 
of all operating parameters from menus. Format, read and 
write more than 30 different manufacturer's disk formats 
with more being added rapidly. 

• Disk Utility Program allows fast format backups and 
verifying of ours and other manufacturer's disks. 

• These CP/M utilities are included: ASM; DDT; DUMP; ED; 
LOAD; MOVECPM; PIP; STAT; SUBMIT; SYSGEN; and 
XSUB. 



WHY BUY OURS? 



Transient Program Area (TPA) 
Bytes free in MBASIC 
Bytes free of formatted disk 
64K Memory drive 
Double-Side/80tk drive support 
Format, read/write other 
CP/M formats 

Communication program included 
Share HD with TRSDOS/LDOS 
Assign multiple drives to HD 
Boots from Hard Disk (4P) 
Popular terminal emulation 
User defined function keys 
Timely product support 



MONTEZUMA 
MICRO 

55K 
30,776 

196K 

YES 

YES 

YES 
YES 
YES 
YES 
YES 
YES 

9 
YES 



RADIO 
SHACK 

52K 
18,488 
160K 

NO 

NO 

NO 

NO 
NO 
NO 
NO 
NO 
3 
NO 



1 28K MEMORY UPGRADE 

Our upgrade kit includes 64K RAM, a geniune PAL chip and instructions 
for installation. This kit will upgrade your 64K Model 4 to 1 28K and 
allow the use of our ML" Ml INK program and the TRSDOS 6.x 
MF.MDISK. Guaranteed 1 year 

A BARGAIN AT ONLY $74 Model 4 
$64 Model 4P - No PAL 



This popular software is available for the Model 4/4P 
using our CP/M. 

WordStar Fast memory-mapped version 3.3 $250 

MailMerge Multi-purpose file merging program ... 1 25 
SpellStar 20,000 word proof-reader on a stick . .125 
Starlndex Creates indices and Tables of Content. . 85 

DataStar Data entry and retrieval is yours 175 

ReportStar Report generator and file manipulator 150 

InfoStar The above two programs 300 

dBASE II with Disk Tutorial 385 

CBASIC version 2.8 85 

TURBO PASCAL by Borland. This is the one 45 



ORDER INFORMATION 

Call now and your order will be shipped immediately. We accept 
American Express, MasterCard and Visa plus we ship COD (cash or 
cashier's check only). Credit cards are not charged until your order is 
shipped. Add S4 shipping per item on orders within the 48 states. 
Suitability of the software is the responsibility of the purchaser as 
there are NO REFUNDS. Defective items will be replaced upon their 
return, postpaid. 



ORDER NOW 



TOLL FREE 



800-527-0347 
800-442-1310 



Spec 



The Toll Free lines are lor orders only 
tications subject lo change without notice 



CP'M is a Trademark of Digital Research. Inc interchange and Memimk are Trademarks of Montezuma Micro TRS-80 is a Trademark of the Tandy Corporation WordStar MailMerge SpeHStar 
Starlnoex mfoStar, ReportStar DataStar Superset and CakrStar are Trademarks of MicroPro international Corporation Mu'tipian is a T'ademark oi Microsoft 




NtONTEZUlfcA 
MICRO 



214 339-5104 

Redtxrd Airport. Hangar # 1 8 

P.O Box 32027 

Dates. Tx 75232 



WE KEEP YOU RUNNING 




Sec I is! ol Advertisers on Page 1 45 
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Running 
Like the Wind 



by Thomas L. Quindry 



80 s own Basic compiler 
is back and better than 
ever— it compiles more 
Basic commands and 
it's easier to use than 
our original version, and 
it now runs under any 
Model l/lll DOS. 



^U fter hours of painstaking pro- 
gramming and debugging, 
you've come up with the ultimate ar- 
cade game — The Flying Slim Whitman 
Records — where you try to blast away 
the disks as they speed past you; "Una 
Paloma Blanca" gamers a 500-point 
bonus. But when you run the program, 
the records move more slowly than they 
did up the Billboard charts. 

Your problem lies with the way Basic 
executes program instructions: The 
Basic interpreter breaks down program 
statements into machine-language com- 
mands before executing them. You can 
circumvent this time-consuming process 
by running your program through a 
Bask compiler, a program that converts 
Basic statements to machine code. Since 
the compiler does some of the work of 
the Basic interpreter, the resultant pro- 
gram runs faster. 

I wrote an enhanced version of Dr. 
Dimitri P. Bertsekas's Basic compiler 
("A Basic Compiler in Bask," October 
1982, p. 122). My version, which I call 
FastBas, compiles more Basic com- 
mands, is easier to use, and runs under 
any DOS on the Models I and III. (For a 
comparison of FastBas with commer- 
cial compilers, see the sidebar.) 

When FastBas converts Bask pro- 
grams to machine language subrou- 
tines, programs run faster. Programs 
that use primarily integer arithmetk 
and graphics run 50-100 times faster, 
while programs written mostly in single- 
precision variables execute 3-20 times 
faster. 

The programs you're compiling must 
stringently follow Bask programming 
rules for correct compilation. FastBas 
doesn't accept all Bask commands, but 
all compilable commands run in Bask. I 



suggest running and debugging your 
program in Basic, then compiling it. 

Compiler Basics 

To understand how Bask compilers 
work and how they increase execution 
speed, you must first understand how 
your TRS-80 handles programming 
functions. 

The TRS-80 ROM contains a ma- 
chine-language program that interprets 
Basic programs line by line. If you run a 
line 1 ,000 times during the course of a 
program, the machine-language pro- 
gram interprets the statements in that 
line 1 ,000 times. 

The Basic interpreter calls specific 
machine-language subroutines in ROM 
for each statement. Because of the ex- 
tensive error-checking that takes place 
during this process, the program runs 
slow compared to machine-language 
programs. 

A compiler, on the other hand, looks 
at each Bask statement once. It inter- 
prets the statement, then writes a ma- 
chine-language subroutine for it and 
stores that subroutine in memory. The 
compiler then interprets the next state- 
ment and puts the machine- language 
subroutine in memory after the previ- 
ous subroutine. Once the compiler 
changes all Bask statements to ma- 
chine-language subroutines, you can 
save and run the compiled program. 

How much faster compiled programs 
run varies with the nature of the pro- 
gram. Compiled programs still contain 
many ineffickncies in coding relative to 
bona fide machine-language programs. 

Program Changes 

I rewrote as few lines of the original 
program as possible and didn't renum- 
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ber it so that readers who have keyed in 
the original can modify their programs. 

Lines 0-500 in Program Listing 1 
contain a sample Basic program for you 
to compile. Note that the last line com- 
piled must be an End statement. 

Many of FastBas's subroutines ap- 
pear before the main program to speed 
up compilation. The main program 
starts at line 1000. 

Most of the statements I added are 
string functions. FastBas can compile 
the Basic commands to input a string 
value, and then find a string's VARP- 
TR, ASC, and VAL. The program also 
interprets string concatenation (addi- 
tion), and redefines strings from other 
string values. It also accepts Dimension 
(DIM) and Clear statements (see Tables 
1-4 for a complete list of compilable 
statements and functions). 

Program Listing 2 uses the string In- 
put function and the ASCII (ASC) 
function to let you answer yes/no ques- 
tions. The ASCII function finds the 
ASCII value of the first character of the 
input string and acts on it using If 
statements. 

This program also exemplifies the use 
of the Dimension and Clear functions. 
FastBas accepts only one Dimension 
statement in the first line of the pro- 
gram you're compiling. You can, how- 
ever, precede Dimension with a Clear 
statement, as in line 10. 

For best results, put Clear and Di- 
mension on a line separate from other 
program statements. Also, you can't 
GOTO the line containing the Dimen- 
sion statement from within a compiled 
program. 

Listing 2 also shows you how to use 
the Dimension statement in both Basic 
and compiled programs. The Dimen- 
sion statement sets up the variable 
storage table and tells you how many of 



each type of variable exist. In this sam- 
ple, DIM A$(40) tells the compiler that 
the program uses one string, A$, and 
that the maximum string length is 40 
characters. The equivalent statement in 
Basic (Run) sets up a string array with a 
dimension of 40. 

Although Basic doesn't need a 40- 
string array, setting one up doesn't af- 
fect program execution, and you can test 
the Basic version before compiling it. 

Program Listing 3 demonstrates how 
to use VARPTR (variable pointer) with 
PEEK and POKE commands to simu- 
late uncompilable Length (LEN) and 
LEFTS functions. By using substitute 
programming techniques, you can sim- 
ulate other uncompilable functions, 
such as RIGHTS and M1D$. 

The VARPTR function identifies the 
memory location of each string used. 
As in Basic, the VARPTR function for 
strings points to a 3-byte table that gives 
the length of the string in the first byte 
and the location of the string in the next 
2 bytes. 

No specific string variable table exists 
for FastBas, so VARPTR creates a 
table for the requested string. FastBas 
always stores the table below the vari- 
able buffer in memory. 

VARPTR moves the correct string 
length and location values to the 3-byte 
table. Only one VARPTR location is 
active at a time. Once the program in 
Listing 3 obtains the VARPTR, it stores 
the values at the VARPTR location in 
other variables before seeking another 
string location. 

The Clear command clears all vari- 
ables to zero. It's not needed at the 
beginning of the program you're com- 
piling, since FastBas automatically 
zeros the variable storage area. 

If you don't want variables automati- 
cally zeroed, make the USR call to your 



General Statements 


Description 


Clear 


Integer value is optional 


CLS 


Clears screen 


DIM 


Same syntax as Basic except for strings (sec text) 


END 


Mandatory statement to return to Basic from USR 




subroutine 


GOSUB (line number) 




GOTO (line number) 




REM or ' 




RETURN 




Table 1. 


General statements that can be compiled. 



compiled program 13 bytes higher than 
specified in the addresses given after 
compilation. This lets you compile 
several machine-language subroutines 
that the USR function calls from your 
Basic program. Each subroutine can 
then use the previously defined vari- 
ables. 

You can put the Clear command any- 
where in the program you're compiling. 
FastBas ignores any digits after the 
Clear statement up to the colon or end 
of the program line (whichever comes 
first), but you can include them if 
they're necessary to run the uncompiled 
program. For instance, "Clear 200:" in 
the compiled program gives the same re- 
sults as "Clear:" in the Basic version. 

Compiling Basic Variables 

FastBas accepts three variable types — 
integers, single-precision, and string 
variables — and you can't do much vari- 
able mixing. When using integer 
variables, the only way to include 
single-precision variables in the same 
statement is to use the integer (INT) 
function. FastBas allows only addition 
and subtraction with integer variables. 

You must first define the values acted 
on within the functions PEEK, POKE, 
VARPTR, ASC, VAL, and so on as in- 
teger variables or integer numbers with- 
out using arithmetic operations. The 
values must be integer variables or inte- 
ger numbers between -32767 and 
32767 without arithmetic operations. 

FastBas can perform close to a full 
set of mathematical operations with 
single-precision variables. This includes 
the four basic math functions plus ex- 
ponents, logarithms, random numbers, 
trigonometric functions, and so on. 

The hierarchy of FastBas's mathe- 
matical operations is not as sophisticat- 
ed as in Basic. The order of a Basic 
mathematical evaluation is exponentia- 
tion, followed by multiplication and di- 
vision, then addition and subtraction. 

FastBas evaluates operations from 
right to left, using the order of paren- 
theses. This simplified system speeds 
compilation, but requires careful use of 



The Key Box 

Models I and ID 
32K RAM Disk Bask 
Cassette Basic 



LOAD 80 
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npiler ( 


Zompa\ 


ison 










by Hardin Brothers 










l ampler 


WmWm 


Accd V* 


Bascom 


Vivace! 


WIBASIC 


ZBask3.0 




Avalabk- 


i/iii 


1 111 


111/4; only supported 


HI/4 


l/III 


I/III/4; all DOSes 




for 


All DOSes. 


All DOSes. 


on TRSDOS but ap- 


TRSDOS onlv. 


All DOSes. 


phis Apple, IBM-PC, 






Models 






pears to work with 
other DOSes. 






Model 2000, Lobo 
& CP/M80. 




Source 


Lines 1-500 of 


In memory with 


On disk as an 


On disk as a 


In memory with 


In memory with 




File 


compiler program. 


Accel and 


ASCII file. 


tokenized file. 


WIBASIC compiler 


ZBasic compiler & 






Location 




Disk Basic. 






and interpreter. 


editor or on disk in 
tokenized form. 




Compile to 


Memory only. 


Memory only. 


Disk /REL file, 


Disk fde. 


Memory or disk. 


Memory or disk. 










then linked into a 


















CMD file. 










Compatible 


Moderate. Supports 


Complete. Compiles 


Very high, with a 


Complete, though 


Uses its own ver- 


Uses its own version 




with Disk 


integer and single- 


only those com- 


few minor 


the Model III 


sion of integer Basic 


of Bask that is 






Basic 


precision only. Sev- 


mands it can 


differences. 


version had 


that is different 


similar to Disk Basic, 








eral commands not 


optimize. Leaves 




sporadic problems 


from TRS-80 Basic, 


plus extra commands 








supported. 


others for Basic- 
interpreter. 




with file 
commands. 


especially error- 
trapping and 
file-handling. 


including structured 
loops (Repeat /Until 
& While/Wend) and 
graphics commands. 




Location 


All necessary code 


Separate disk file. 


Separate disk file. 


Separate disk file. 


Compiled into 


Compiled into 




of runtime? 


compiled into each 








CMD program. 


CMD program. 






library 


command. 














Chaining 


No program 


Chaining possible 


Chaining with any 


Model 4 only. 


Possible, but re- 


Can merge source 




with common 


chaining possible. 


but no variables 


or all variables 




quires tricky pro- 


programs. 






variables 




can be passed. 


passed. 




gramming. 


can't chain. 




Speed of 


Moderately fast. 


Moderately fast. 


Very fast. 


Relatively slow. 


Very fast. 


Fastest of all com- 




compiled 








Model 4 version 




pilers in benchmark 






program t 








was slower than 
original Basic 
program in 
benchmark test. 




tests. 




Ease 


Moderately easy 


Easiest to use and 


Several options in 


Easy to use except I 


Compiling is easy 


Easy to use and 




of use 


to use. 


understand. 


both compiler and 
linker can cause 
confusion at first. 
Compiled program 
can be easily 
linked to Fortran 
and MACRO-80 
programs. 


found the program 
sometimes had diffi- 
culty reading its 
own protected, 
disk. 


but programs can be 
difficult to develop 
because of differ- 
ences between Basic 
and WIBASIC. 


understand. Most 
differences between 
Basic and ZBasic 
are enhancements, 
and the syntax feels 
"normal." 




Other 


Best choice for 


Best feature is 


All math functions 


Supplied on pro- 


Compiled programs 


Speed of compiled 




Comments 


developing USR 


its ease of use. Re- 


can be double-preci- 


tected disk. Slow 


are very fast. Re- 


programs and power 








routines for your 


quires both a 


sion. Best choice for 


execution speed of 


quires learning a 


of extensions to Ba- 








Basic programs. 


runtime library and 


very large and com- 


compiled programs. 


completely new 


sic make this a top 










Disk Basic to run 


plex programs that 


I found erratic 


version of Basic. 


choice for programs 










CMD program. 


require chaining. 


bugs in both the 
compiler and 
completed programs. 




that do not require 
chaining. Source 
code compatibility 
with other computers 
may be a major asset 
for some. 




Supplier 


This issue of 80 


Allen Gcldcr 


Radio Shack 


WittSoft, Inc. 


WittSoft, Inc. 


Simutek Computer 




& Cost 


Micro & Load 80 


Software $99.95 


$195 


$49.95 


$49.95 


Products $89.95 
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parentheses for proper evaluation. The 
use of parentheses doesn't slow com- 
piled programs. 

The compiler accepts 26 integer vari- 
ables, denoted A^o-Z^o, and 286 sim- 



ple single-precision variables, denoted 
by A-Z, or by a letter followed by a sin- 
gle decimal digit. Possible simple single- 
precision variables are A, A0-A9, B, 
B0-B9,...Z, Z0-Z9. 



Integer Statements 

+ and 

hor . . . I o . . . Next 



If. . .Then (Line number) Else 



Input 
INT 

Let 

PEEK 

Point 
POKE 

Print 

PRINT® 

Reaei 



Set 



Description 

The only math operations allowed with integer variables. 
Example: A<?o = A°/o + B^o - 7 
Requires integer variable or integer number. Follow 
Next with the specified integer. 
Example: FOR N% = A^oTOBTo: . . . :NEXTN«7o 
FOR N^o = A«o TO 10: . . . :NEXTN°7o 

Any combination of = ,<.> conditions are valid. 
Replace Then with GOTO or Then GOTO. Only specify 
line numbers after Then or GOTO. Any number of 
If. . .Then. . .Else statements can follow each other. 
Example: IFA°/o> = B«/oGOT0400 

IhA<7o>=45GOT0400 

ELSEIFA%<30GOTO400 

Don't include strings in quotation marks. 
Example: Input A% 

Changes single-precision expression to integer expres- 
sion. Computed value of single-precision expression 
must be between - 32767 and 32767. 
Example: A°Io - INT(R"256- 65536) 

Optional. You can only define integer variables to an ex- 
pression that includes single-precision when using INT. 
Example: LET A°7o = B% 
A°7 = B^o 

Requires integer variable or integer number. 
Mathematical operations are not acceptable. 
Example: A% = PEEK(A^o) 
A<Fo = PEEK(-450) 

Same as PEEK. Integers must be between and 127, and 

and 47 respectively. 

Example: A«o - POINT(C°7o.34) 

A% = POINT (23,34) 
Same as PEEK. Second Integer must be between and 
255. 
Example: POKEA^o.B^o 

POKE - 3445, B% 

POKE - 3445,45 
You can mix integers, single precision, and strings, as 
well as messages between quotes. 
Example: PRINT"The answer is ";A°,'o 

PRINTA*o;B;" ";SS 
Location is integer variable or integer number between 
and 1023. Otherwise same as Print. 
Example: PRlNTt^CV'The answer is ";A .'n 

PRlNT@320.A°7o;B;" ";S$ 

Same as PEEK and Point. 
Example: RESET(C<7o,34) 
RESET(23.34) 

Same as PEEK. 
Example: SET(C°'o,34) 
SEK23.34) 



Table 2. Integer statements that can be compiled. Integer statements except Let require defini- 
tion to an integer variable and can 't include math operations. They must be between - 32767 
and 32767. 



You can represent one- and two-di- 
mensional arrays using the letters A-Z. 
Two-dimensional arrays must be square. 
For example, array B with dimensions 
B(34,34) is acceptable, but B(34,35) is not. 

Denote string variables using A$-Z$. 
The maximum length for each string is 
the same. The program uses the same 
maximum length for string literals in 
Print statements. 

If FastBas doesn't find a Dimension 
statement in the first line of your pro- 
gram, it uses default values for all vari- 
ables (see line 1010 of Listing 1). Re- 
gardless of the dimension, FastBas has 
a minimum of integer and single-preci- 
sion values from A°Io-Z°Io and A, 
AO-Z, Z0, respectively. 

The Dimension statement doesn't 
have to include all types of variables. 
FastBas zeros variables not included, in 
the case of arrays, or takes minimum 
values. The minimum simple single-pre- 
cision variable value is a letter from A-Z. 

The compiler sets strings A$-Z$ to a 
character length of 40 unless otherwise 
specified in the Dimension statement. I 
recommend that the string length remain 
at a minimum of 40 so you can use print 
statements in your program. You can 
specify a minimum of one string, A$, 
with the Dimension statement. 

You can dimension more than one 
variable of each type in one Dimension 
statement. This is so the equivalent 
Basic program doesn't cause an error. 

Only the last variable specification of 
each type sets the maximum dimension. 
For instance, Dimension C(20,20), 
B(2,2) is permissible, although in the 
compiled program, the maximum two- 
dimensional array is B(2,2). 

The program hasn't saved enough 
space to store the C array. Changing the 
Dimension statement so it compiles to 
Dimension B(2,2),C(20,20) saves space 
for both arrays. This is important, since 
FastBas doesn't check for illegal arrays. 

FastBas doesn't error-check vari- 
ables, either. This can produce prob- 
lems or work to your advantage. In the 
case of the defaulted variable values, 
the program has reserved memory for 
one-dimensional and two-dimensional 
arrays. 

FastBas stores all arrays sequentially 
and computes the location of each array 
value. You'll probably dimension the 
maximum array location to 20, but you 
can define larger arrays. 

You can include an array with a max- 
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SYSTEM 
DIAGNOSTIC 

Is your computer working correctly? 
Are you sure? Find out for certain with 
System Diagnostic, which has complete 
diagnostic tests for every component of 
your TRS-80 - " Model 1. 3 or 4 

•ROM: checksum tests 

• RAM: three tests including every lo- 
cation and data value 

• Video Display: character generator, 
video RAM. video signal 

• Keyboard: every key contact tested 
•Line Printer: character tests with 

adjustable platen length 

•Cassette Recorder read, write, 
verify data 

• Disk Drives: disk controller, drive 
select, track seek, read sectors, format- 
ting, read/write/verify data with or 
without erasing, disk drive timer, disk 
head cleaner. Single or double density. 
1-99 tracks 

• RS-232-C Interface: connector 
fault, data transmission, framing, data 
loop, baud rate generator. 

Individual or continuous testing mode, 
reports optionally written to line printer. 
Separate versions for Models 1. 3. and 4. 
(Cassette and ROM tests not included in 
Model 4 version ) 
System Diagnostic $99.95 



SMALL BUSINESS 

MANAGEMENT 

SYSTEM 

A complete system for using your 
computer to manage a small business 

•Order Entry: enter orders, print in- 
voices, change past invoices. Use pre- 
printed forms or plain paper 

• Bookkeeping: complete general ledg- 
er by user-defined categories. Print monthly 
or year-to-date summaries and ledgers 

•Accounts Receivable: show balan- 
ces due from unpaid invoices at any time 

•Accounts Payable: show amounts 
you owe for unpaid bills in any category 

•Inventory: complete summary of 
products sold by part number and prices 
charged Limited to 1.000 8-character 
part numbers (2.000 for MS-DOS) 

• Installation package tailors the 
programs to your business. 

Requires a minimum of two floppy 
disk drives or hard disk. 80-column prin- 
ter Available for TRS-80^ Models I, III. 
4. 2. 12, 16 (TRSDOS). or 2000. 
IBM-PC. and most CP/M computers. 

Need more information? Ask for 
our detailed description of this program 
with sample forms and reports. 
All versions $250.00 



TYPITALL — The most powerful TRS-80 Word Processor 

TYPITALL is a word processor which is printing Names, addresses, or any other text 

upward compatible with SCRIPSIT" for the can be inserted during printing 
TRS-80" Models 1. 3 and 4 If you know • Print during editing (spooling). 

SCRIPSIT". you can start using TYPITAI. I . im- "Assign any sequence of keystrokes 

mediately riven if you have never used a word '" d s,n 9'« control key 

processor before, you will find TYPITALL 'Call up to 16 HELP screens at any time, 

easy to learn, and full of so many powerful ' Move cursor forwards or backwards by 

features that you'll wonder why other word c har ^ r - ««rd Jine, or page 

j •» u .u t_- n i . • Keenter the program with all text 

processors don t have them hollowing is a list . ., ,7 , 

i rvmiTAi i ■ j ,k " i intact it you accidentally exit without savinq 

of some of I YPI I ALL s features. (If you need . 

to know more, ask for our free catalogue.) , Spelling checker with 29.500 word 

•Send any control or graphic/special dictionary available 
character to the printer. •Verify 3.500 word document in less 

• Print the formatted text on the screen than two minutes. 
before going to the printer. »True Model 4 (80 x 24 display, 

•Send the formatted text to a disk file TRSDOS 6) and Model l/lll versions 
for later printing. •// you like SCRIPSIT'. you 7/ probably 

•Merge data from a disk file during love TYPITALL" 80 Micro. 

TYPITALL Demo Version $49.95 

TYPITALL Complete Version $129.95 

TYPITALL with Spelling Checker $179.95 



HOME BUDGET 

and 

CHECKBOOK 

ANALYST 

Combines the functions of a check- 
book program with budget analysis, 
comparisons, summaries and projections 

First, it is a checking program, which 
can be used to maintain your checking 
account F.nter deposits, print check regis- 
ters, compute your current balance 

More important, the program analyzes 
both your income and expenses and 
keeps track of your budget While it 
comes with a classification for home ex- 
penses, these can easily be modified, so 
that program can be used for a business 

Income is classified in up to 32 cate- 
gories Kxpenses are broken into up to 
12 main categories, each of which can 
be further divided into 12 subcategories 
Checks can be divided into split trans- 
actions, and cash expenses can be inclu- 
ded (Only one checking account allowed.) 

The program computes monthly and 
year-to-date income and expense sum- 
maries, and projections for the rest of 
the year based on data through a known 
month Monthly expenses can be com- 
pared to a preestablished budget 

Model 1/3/4 disk version . . . $59.95 
Model 1/3/4 cassette 

version ... $29.95 

Model 2/12/16 version $69.95 

MS-DOS or CP/M version ... $69.95 



SMALL BUSINESS 
ACCOUNTING 

Based on Dome Bookkeeping Record 
"612. this program keeps track of income, 
expenses, and payroll for a small business 

Complete ledgers are maintained for 
both income and expenses. The pro- 
gram computes monthly, through last 
month, and year to date summaries 

The payroll section (not included in 
cassette version) contains provision for 
up to 99 employees with up to six cate- 
gories of deductions The program can 
print both checks and summaries of pay- 
roll for one employee or all employees. 

Model 1/3/4 disk version ... $59.95 
Model 1/3/4 cassette version $29.95 

Model 2/12/16 version $69.95 

MS-DOS or CP/M version ... $69.95 



MONITOR #5 

A comprehensive machine language 
monitor and debugger for the TRS-80 
Models I. III. or 4. 

Display memory in ASCII or hex 
Disassemble, move and compare 
blocks Search, modify memory Re- 
locate object programs Read and write 
cassettes or disk files. Input and 
output of disk sectors, bypassing DOS 
RS-232-C commands for terminal, send 
and receive. Complete debugging 
package includes setting and display- 
ing registers, single stepping through 
machine instructions, setting break- 
points, and executing programs 
Monitor #5 $22.95 



Howe Software 

14 Lexington Rd.. New City. NY 10956 

Developing software for TRS-80 
computers since 1979. *m 



24-Hour TOLL FREE Order Number: 
Outside California call: 

(800) 428-7825, ext. 169 

Inside California call: 

(800)428-7824. ext 169 

Visa. Master Card, or COD orders only. 



For information call: 
(914)6341821 

Add $3.00 postage & handling. 
New York residents add sales tax. 

•TRS-80 and SCRIPSIT «.r if*d«raark» of Tandy Corp 




imum dimension of A(60) in your pro- 
gram if you don't use arrays B and C. 
FastBas specifies the maximum letter 
for arrays as at least C, so dimensioning 
Z(20) accommodates a single array of 
A(520) just as easily as dimensioning 



A(520). An example of this appears in 
the sample program in Listing 1 . 

The added commands for string in- 
put and for string concatenation don't 
check for string length. However, the 
original string definition function does 



Single-precision Commands 


Description 


+ , -,*,/, and ( (exponent) 


Accepted math operations. Can include single-precision 




expressions with integer variables. Placement of paren- 




theses is important. 




Example: A - A%»B - ((C/7)[2) 


ABS 


Can use single-precision expressions, single-precision 




variables, or integer variables in parentheses. 




Example: A = ABS(4*B% - 76) 


ATN 


Same as ABS. 




Example: A = ATN(4*B«fo - 76) 


COS 


Same as ABS. 




Example: A - COS(4*B°'o - 76) 


EXP 


Same as ABS. 




Example: A = EXP(4 , B°7o - 76) 


If. . .Then (Line number) Else 


Any combination of = ,<,> conditions arc valid. Can 




replace Then with GOTO or Then GOTO. Only specify 




line numbers after Then or GOTO. Any number of 




If. . Then. . .Else statements can follow each other. If 




first value is an integer variable, it must follow rules for 




integers. 




Example: IFA> - B«'oGOTO 400 




IFA> = 45*3GOTO400ELSEIFA< 




CGOTO400IFA> - 45MTHEN400 




ELSEIFA<CTHEN400 


Input 


Don't put quotation marks around string expressions in 




Input commands. 




Example: Input A 


Let 


Optional command. Can define single- precision 




variables to an expression that includes integer expres- 




sions. Don't include integer commands in the expres- 




sion, only integer variables and single-precision variables 




and expressions. Placement of parentheses crucial for 




correct evaluation. 




Example: A = 50 + TAN(355/( 1 13*4)) + (A°/o*256) 


LOG 


Same as ABS. 




Example: A = LOG(4*B*fc - 76) 


Print 


Same as integer Print. 




(Table 2) 


PRINT® 


Same as integer PRINT®. 




(Table 2) 


RNCXO) 


Random number greater than and less than 1 




Example: A = RND(O)* 10 


SIN 


Same as ABS. 




Example: A = SIN(4*B°'o - 76) 


SQR 


Same as ABS. 




Example: A = SQR(4*B% - 76) 


TAN 


Same as ABS. 




Example: A = TAN(4»B«?o - 76) 


Took 3. Single-precision functions that can be compiled. These functions can use math operations. 



check, so the same rules apply as for ar- 
rays. If you expect a string to be twice as 
long as allocated due to these functions, 
don't use the next higher string variable. 

Passing Variables 

Two special functions, DEFUSR and 
USR, pass variables from Basic to a ma- 
chine-language subroutine and back. 
You can use them to speed up a Basic 
program by having only part of it 
compile into a machine-language USR 
subroutine (see sample program in 
Listing 1). 

A Basic program that calls the com- 
piled subroutine starts at Line 10000. 
Line 10060 calls the machine-language 
subroutine compiled from lines 0-500. 
FastBas's DEFUSR function is in line 
1310. Note that you must dimension the 
Basic portion of the program sufficient- 
ly when arrays pass back from the ma- 
chine-language subroutine to Basic. 

If the If statement condition has exe- 
cuted the Gear 50 command in line 
1316, running the sample program (by 
pressing the enter key) results in the er- 
ror message "Subscript out of range" in 
line 1340. To run the program, press the 
break key and type in RUN 10000. 

Line 30 in the sample program in- 
structs the compiler to write code to 
pass the variable N*7o to the USR sub- 
routine using the statement N°/o = + 
N%. Line 40 transfers the value of the 
A array in the same fashion. 

After the USR subroutine performs 
its function, the redefined A array 
transfers back to Basic in line 140 by 
A(I%) = 1*A(I%). 

The values of the variables on the 
right side of each equation are from 
lines 10000-10090 in the uncompiled Ba- 
sic part of the program. They don't have 
to be the same variable name as on the 
left of the equals sign in lines 30, 40, and 
140, but I recommend using identical 
variable names to assure complete com- 
patibility with the uncompiled program. 
To try the program in Basic, change line 
10060 to GOSUB30 and change line 500 
to RETURN. 

Manipulations in Memory 

FastBas doesn't compile in a fixed 
memory location, but determines where 
protected memory begins and compiles 
from that point. If the program exceeds 
memory limits, it lowers the high 
memory pointer (HIMEM) by 512 bytes 
and restarts compilation. This process 
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• Allows Model III programs to 

use 80x24 mode on a Model IV 

• Modifies PRINT @. TAB. SET. 
etc to access entire 80 x 24 
screen 

• Permits PEEK and POKE to all 
1920 screen locations 

• Adds SOUND and 10 other BASIC 
enhancements 

• Integrates into any DOS 

• Functions with both BASIC and 
machine language programs 

• Allows intermixing of 80x24 
and 64 x 16 modes 

ONLY $39.95 



Call about Model III 80x24 
upgrade 

The Logical Place 

Dealers PO Box 308 

invited Keyser, WV 26726 

(301) 7865013 



Now you can eliminate the strobe, flicker and 
fatigue from your computer terminal with a new 
amber Soft- View ""replacement CRT from 
Langley-St. Clair. 

Available for the TRS-80. THeVWeo. Kaypro. 
Heath. DEC. Zenith. IBM PC. Apple HI and a wide 
variety of other monitors. These new replacement 
display tubes use amber phosphors which exceed 
the European standards for persistence and color. 
And the decay' or fade-out rate of the phosphor 
is the same as the refresh" or scanning rate of the 
computer screen, so the display glows gently, rath- 
er than flickering like a strobe light — an annoying 
problem with Inexpensive green phosphor tubes <j 



Available in medium decay European 

Phosphor |the standard In Europe). 

Made with Lead/Strontium impregnated glass 

that stops X ray emission. 

High-contrast double dark face glass that also 

cuts U.V radiation. 
| Face of tube Is etched to stop glare. 
1 Easily Installed . comes with pre-mounted 

hardware. 
1 Ideal for word processing and programming, yet 

fast enough for games and graphics. 
1 Warranted for one full year against manufac 

luring defects or tube failure. 
> Comes with a 30 day money back guarantee 
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Call now to order your Soft-View"' CRT 
from Langley St. Clair- $99.95* 

800 221-7070 ^ 

In New \tork call 212 989 6876 «"°« 

tpecify compote r jind model number when ordering Dealer Inquiries mwrted 



LarvjIey-StClair 

IrKtnjnwitarjon Systems, Inc. 

13ZW 2*n8tN**«y* WiQQ" 
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CONVERT YOUR TRS-80 MODEL I, III. OR 4 INTO A 

DEVELOPMENT 
SYSTEM 




Now you can develop Z-80 based 
stand-alone devices such as games, 
robots, instruments and peripheral 
controllers by using your TRS-80 as a 
development system The DEVELOP- 
MATE plugs into the expansion con- 
nector of your TRS-80 and adds 
PROM PROGRAMMING and IN- 
CIRCUIT-EMULATION capabilities to 
your system (with or without expan- 
sion interface) 



Complete instructions and sample 
schematics are included to help you 
design your own simple stand-alone 
microcomputer systems THESE 
SYSTEMS CAN BE AS SIMPLE AS 
FOUR ICs one TTL circuit for clock 
and reset a Z-80. an EPROM. and one 
peripheral interface chip 

When the In-Circuit-Emulation 
cable is plugged Into the Z-80 socket 
of your stand-alone system, the sys- 
tem becomes a part of your TRS-80 
You can use the full power of your 
editor-assembler's debug and trace 
program to check out both the hard- 
ware and the software Simple test 
loops can be used to check out the 
hardware, then the system program 
can be run to debug the logic of your 
stand-alone device 

Since the program is kept in TRS-80 
RAM changes can be made quickly 
and easily When your stand-alone 
device works as desired, you use the 
Developmate s PROM PROGRAMMER 
to copy the program into a PROM 
With this PROM and a Z-80 in place of 
the emulation cable, your stand-alone 
device will work by itself 



The DEVELOPMATE is extremely 
compact Both the PROM programmer 
and the In-Circuit-Emulator are in one 
small plastic box only 3.2" x 5 4" A 
line-plug mounted power supply is 
included The PROM programmer has 
a personality module" which defines 
the voltages and connections of the 
PROM so that future devices can be 
accommodated However, the system 
comes with a universal' personality 
module which handles 2758, 2508 (8K ) 
2716. 2516 I16K). 2532 (32K). as well 
as the new electrically alterable 2816 
and 48016 (16K EEPROMs) 

The COMPLETE DEVELOPMATE 
81. for Model I with software, power 
supply, emulation cable, TRS-80 
cable and universal' personality 
module S329 

DEVELOPMATE 83, Model III/4 version, 

same as above $329 

PM2 PERSONALITY MODULE for 

2732A EPROM $15 

PM3 PERSONALITY MODULE for 
2764 EPROM $15 



Instruments 



•• i 



172 Otis Avenue Dept M. Woodside, 

CA 94062 

(415) 851-1172 

Cbarge and Visa phone ordets a 

California residents please add 6 •* sales la» 



^ See List ol Advertisers on Page 145 
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Siring Commands 
ASC 

CHRS 

Input 
Let 



Print 
PRINT® 
VAL 
VARPTR 



Description 

ASCII value of a string. 
Example: A«*o = ASC(DS) 

Requires integer variable or integer number in paren- 
theses. 
Example: B$ = CHR$(A»'t) + CHR$(65) 

Don't include string expressions in quotation marks. No 
error-checking for string length. 
Example: Input A$ 

Optional command. Can define string variables as string 
expressions that include string concatenation and 
redefinition. No error-checking in string length occurs 
for concatenation and redefinition. 
Example: AS B$ 
AS = "First String" + CHR$<C°'o) + "BS 

Same as integer Print. 
(Table 2) 

Same as integer Print @. 
(Table 2) 

Compiler truncates any decimal value to an integer. 
Example: A% = VAL(DS) 

Example: A<?o = VARPTR(DS) 



Table 4. String functions that can be compiled. You can define many string commands with 
integer variables. 



Program listing I. FdstBm and sample Basic compilation program. 



' *** PROGRAM LINES 10-500 AND 10000-10090 ARE A SAMPLE PROGRAM 

READY FOR COMPILATION. RUN 1000 TO COMPILE. 

10 ' *** NUMERICAL ARRAY SORTING (FROM LEVELII MANUAL) 

20 ' *** PASS ARRAY A FROM BASIC TO USR *** 

30 N%«0+N% 

40 FOR I%=1 TO N%:I%=1*I%:A(I%) =0+A(I%) :NEXT 1% 

50 ' *** SORTING PROGRAM BEGINS *** 

60 D%-1 

70 D%=D%+D%:IFD%<N%THEN70 

80 D%=INT((D%-l)/2) :IFD%=0 THEN 140 

90 T%=N%-D%:F0RI%«1T0T%:J%=I% 

100 L%=J%+D%:IFA(L%) >A(J%)THEN 120 

110 T=A(J%) :A(J%)-A(L%) : A(L%) -T: J%=J%-D% : IFJ% >0 THEN100 

120 NEXTI%:GOTO80 

130 ' *** PASS ARRAY A FROM USR TO BASIC *** 

140 FOR I%-1 TO N%:I%-1*I%:A(I%)=1*A(I%) jNEXT 1% 

500 END 

501 '**************** BASIC COMPILER ********************* 

502 '*• COPYRIGHT 1981 BY D. P. BERTSEKAS, BELMONT, MASS. 
'** PERMISSION TO USE; NOT TO SELL 
'** ENHANCEMENTS 1984 BY T. L. QUINDRY, BURKE, VA. 



503 
505 
506 
510 <****•••*••*** peek t. POKE ROUTINES ****************** 

512 POKEM,P:PRINTP;:M=M+l:IFM<-12-MR*16384THENRETURNELSECLS:PRINTe 
320, "PROGRAM HAS EXCEEDED PROTECTED MEMORY SIZE" 

513 PRINT: PRINT "LOCATION TO COMPILE LOWERED BY 512 BYTES AND PROGR 
AM BEING RERUN":POKE16562,PEEK(16562)-2:FORN«1TO2000:NEXT:GOTO1000 

514 PC=PEEK(Q) :PN«PEEK(Q+1) :Q=Q+1 : IFPC=32THEN514ELSEIFPC=0C=2 : RETU 
RNELSERETURN 

518 IFPC<65ORPO90THEN522ELSERETURN 

520 IFPN<>37THEN522ELSEQ=Q+1: RETURN 

522 PRINT: PRINT'ERROR LINE • " ;Ll (L-l) : END 

524 PRINT@0,FS; : PRINT364 ,CHR$ ( 30) :RETURN 

529 • ******** SINGLE PRECISION ASSIGNMENT ROUTINES ******** 

530 ' ROUTINE TO FIND VAR. ADDRESS PARAMETERS 

535 GOSUB514:GOSUB518:V1=PC-65:IFPN<48ANDPN>57ANDPNO213ANDPNO40A 
NDCF01THEN522 

538 IFPN>47ANDPN<58MI-PN-47:GOSUB514ELSEMI=0 
540 IFPN-213Z1-1:RETURN 

I Isting I continued 



repeats until the program reaches a min- 
imum HIMEM limit or until the pro- 
gram completely compiles. 

The variable storage area is located 
above the compiled program and ex- 
tends down from the top of memory as 
needed. All compiled subroutines use 
the same variable table area, so if you 
put more than one compiled program in 
memory, write the Dimension state- 
ment to accommodate the largest com- 
piled subroutine. 

If interference from the top of the 
compiled program and the allocated 
variable table area occurs during com- 
pilation, FastBas relocates the compiled 
program, corrects its jump addresses to 
accommodate the allocated area for 
variable storage, and corrects the 
HIMEM pointer. 

Compilation can occur too low for 
the compiler to work. If the HIMEM 
pointer is too low in memory, FastBas 
adjusts it upwards and the program 
compiles at the higher memory posi- 
tion. 

FastBas requires about 1,650 bytes 
above the Basic program to run. How- 
ever, if FastBas relocates the HIMEM 
pointer to the minimum allowable value 
and you get an out-of-memory error, 
change the value + 1650 in line 1007 to a 
higher value. 

Compilable Commands 

Tables 1-4 list and define compilable 
Basic commands and explain how to 
use them. Table 1 lists general state- 
ments that compile. Table 2 lists the 
compilable integer statements. Table 3 
lists compilable single-precision com- 
mands, and Table 4 contains com- 
pilable string commands. 

Remember that functions that apply 
to integer variables give integer results, 
and the values that go within paren- 
theses of the functions must be integer 
values or integer variables. 

FastBas can't carry out arithmetic 
functions within parentheses when us- 
ing the special integer functions, and 
has limited error-checking for this type 
of error. If FastBas finds an illegal op- 
eration, it ignores any remaining ex- 
pressions on that program line. 

Array locations must be integer vari- 
ables. Functions that apply to single- 
precision variables can have single- 
precision variables, integer variables, or 
single-precision expressions within the 
parentheses of the function. 
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Using FastBas 

To compile a Basic program, number 
the program lines from 0-500 and con- 
tinue it from line 10000 if necessary. 
Save the program in ASCII, then merge 
it with FastBas. Delete the lines relating 
to the sample program, then type RUN 
1000 to compile the program. 

As an example, try compiling Pong in 
Program Listing 4. This two-player 
paddle game demonstrates how much 
faster compiled code runs compared to 
a Basic program. 

Try running the Basic version first. 
Use the O and L keys to move the right 
paddle and the Q and A keys for the left 
paddle. The game stops when a player 
gets 16 points. The highest ball speed 
setting moves very slowly. The com- 
piled program runs so fast that the 
highest speed setting is impossible. 

After you've merged your Basic pro- 
gram and run FastBas, it displays each 
Basic line number and the compilation 
address (except for the line containing 
the Dimension statement), followed by 
all code in decimal. A colon separates 
each statement in the line. 

By changing the Print statements in 
lines 512 and 1035 of Listing 1 to 
LPRINT statements, you can trace 
where each command compiles in 
memory. 

FastBas's last display indicates the 
hexadecimal (hex) and decimal values 
for the start, end, and transfer address 
of the compiled program, along with 
the location of the compiled program 
and the variable table (see the Figure). 

In this last screen you have all the in- 
formation needed to save and run the 
compiled program or subroutine. Use 
the start, end, and transfer hex ad- 
dresses with the Dump command to 
save the program to disk (see your DOS 
manual for correct syntax). 

When entering Basic, you must pro- 
tect high memory or your compiled pro- 
gram will crash. Use the decimal nota- 
tion in the second row under the column 
labeled Start. When in Basic, define the 
USR function (DEFUSR) by using the 
third row value under Start. This is 
always a negative value. 

To load the compiled program into 
memory, type in LOAD followed by a 
file name from DOS Ready and hit the 
enter key. If you're using another DOS, 
use the equivalent statement. You can 
save the program using the CMD "L" 
command from Basic. Be sure to in- 



COMPILED PROGRAM CONFLICTS WITH VARIABLE STORAGE AREA. 
RELOCATING PROGRAM . . . 

33 252 249 17 252 247 1 167 5 237 176 201 
PROTECTED MEMORY POINTER CHANGED AND PROGRAM RELOCATED TO 





START 


END 


TRANSFER 


HEXIDECIMAL 


&HF7FC 


&HFDA3 


&HF7FC 


DECIMAL 


63484 


64931 


63484 


DECIMAL 


-2052 


-605 


-2052 



VARIABLES STORED - &HFE3F 
TO TOP OF MEMORY - S.HFFFF 



<ENTER> TO RUN MACHINE CODE . . .? 

Figure. Final display after compiling the Pong program. 



I isiinit I continued 

545 IFPN-40GOSUB514:GOSUB514:GOSUB518:V2-PC-6 5:GOSUB520:GOSUB514EL 

SEIFCF-1Z1-1: RETURN 

550 IFPC041ANDPC044THEN522 

555 IFPC=41Z1=2: RETURN 

560 IFPC=44GOSUB514:GOSUB518:V3»PC-65:IFVK0ORV1>«NTTHEN522ELSEGOS 

UB520:Zl=3:GOSUB514:IFPC<>41OR(PN<>213ANDCFOl)THEN522ELSERETURN 

564 ' ADDRESS COMPUTATION ROUTINE 

565 ONZ1GOSUB570,575,580:RETURN 

570 IFMI>ISTHEN522ELSEC1«VF+(V1+MI*26) *4 : GOSUB 836 :GOSUB90 2: RETURN 

575 V7-V1:V8=V2:GOSUB610 -.RETURN 

580 V7«V1:V8*V2:V9«V3:GOSUB620: RETURN 

600 ' ARRAY PORTION OF ADDRESS ROUTINE 

610 V0=V8:GOSUB912:GOSUB906:C1«=VA+V7*DO*4:GOSUB836:GOSUB900:GOSUB9 

04: RETURN:' 1-D ARRAY 

620 V0=V9:GOSUB912:P«=41:GOSUB512:C1=VD+4*NT*DT*DT+2*V7*DT:GOSUB836 

:GOSUB900:GOSUB904:P=94:GOSUB512:P-35:GOSUB512:P«86:GOSUB512:V0»V8 

: GOSUB 91 2: GOSUB 90 6: GOSUB 90 4: RETURN:' 2-D ARRAY 

699 ' ROUTINE TO EVALUATE SINGLE PRECISION EXPRESSIONS 

700 GOSUB514:IFPCO206GOTO704 

702 E1-0:D1=0:GOSUB902:GOSUB926:GOSUB926:GOTO714: 'TAKES CARE OF LE 

ADING <-> SIGN 

704 GOSUB730 

706 GOSUB514:IFC-20RPC«410RPC-58ORPC-59ORPC«2120RPC-2130RPC"2140RP 

C-141ORPC-202THENRETURN: 'PEEK NEXT BYTE; IF TERMINATOR RETURN 

708 GOSUB 93 4: 'MOVE INTERIM RESULT FROM 4121H STORAGE AREA TO STACK 

710 ' MOVE NEW VARIABLE TO 4121H AREA; POP BCDE; OPERATE 

712 IFPC-205GOSUB514tGOSUB730:GOSUB936:GOSUB940:GOTO706x 'ADD 

714 IFPC=206GOSUB514:GOSUB730:GOSUB936:GOSUB942:GOTO706: 'SUBTRACT 

716 IFPC-207GOSUB514:GOSUB730:GOSUB936:GOSUB944:GOTO706j 'MULTIPLY 

718 IFPC»20 8GOSUB514:GOSUB730:GOSUB936:GOSUB946:GOTO706: 'DIVIDE 

720 IFPC«209GOSUB514:GOSUB730:GOSUB936:GOSUB948:GOTO706i 'EXPONENTI 

ATE 

722 GOT0522: 'ERROR TRAP 

729 ' ROUTINE TO EVALUATE CONSTANTS, VARIABLES t FUNCTIONS IN SING 
LE PRECISION EXPRESSION 6 MOVE THEM TO 4121H STORAGE AREA 

730 IF (PC<58ANDPC>47)ORPC-46GOSUB845:RETURN: 'CONVERT CONSTANT TO 4 
-BYTE REPRESENTATION; MOVE IT & RETURN 

732 IFPC=222GOSUB514 : IFPCO40THEN522ELSEGOSUB514 : IFPC048THEN522EL 

SEGOSUB514:IFPCO41THEN522ELSEP-205:GOSUB512:P=240:GOSUB512:P-20:G 

OSUB51 2 : RETURN : ' RND ( ) 

734 IF(PO220ANDPC<229)ORPC=217ORPC=40THEN756ELSEIFPC<65ORPO90THE 

N522:'IF FUNCTION GOTO 758 

736 V4«PC-65:IFPN>47ANDPN<58THENME=PN-47:GOSUB514:Z2«l:GOT0746ELSE 

IFPNO40ANDPNO37THENME-0 : Z2-1 :GOT0746ELSEIFPN-37THENZ2-4 :GOSUB514 

:GOT0746 

73 8 GOSUB514:GOSUB514:GOSUB518:V5-PC-65:GOSUB520:GOSUB514 

740 IFPC041ANDPC044THEN522 

742 IFPC-41Z2-2: '1-D ARRAY 

744 IFPC«44GOSUB514 :GOSUB51 8: V6-PC-65 :GOSUB520 : Z2=3 :GOSUB514 : IFPC< 

>41THEN522: '2-D ARRAY 

746 ONZ2GOT0748, 750,752,754 

748 IFME>ISTHEN522ELSEC1«=VF+(V4+ME*26) *4:GOSUB836 : GOSUB 90 2: GOSUB 93 

2: RETURN 

750 V7-V4:V8-V5:GOSUB610:GOSUB932: RETURN 

7 52 V7-V4:V8=V5:V9-V6:GOSUB620:GOSUB932:RETURN 

754 V0«V4:GOSUB912:P-34:GOSUB512:P-33:GOSUB512:P-65:GOSUB512:P=205 

Listing I continued 
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elude the /CMD extension in the file- 
name if you save the program this way. 

Model I TRSDOS doesn't have an 
equivalent command to load from 
Basic; load from DOS instead. If you 
use Model III TRSDOS and the Dump 
command, return to DOS by rebooting 
instead of using CMD "S". 

If the compiled program contains an 
INPUTS function and the string is more 
than four characters long, calling the 



routine from the Basic command mode 
instead of from a Basic program results 
in a syntax error on return to Basic. 
However, this doesn't affect operation 
of the compiled program. 

If you compiled Pong, the final 
screen should look like that in the Fig- 
ure. Assuming you're using TRSDOS 
1.3, you then reboot the computer and 
type in DUMP PONG (START = 
0F7FC, END = OFD A3, TRA = 0F7FC) 



Listing I continued 

:GOSUB512:P-204:GOSUB512:P-10:GOSUB512:RETURN: ' CONVERT INTEGER VA 

R. TO SINGLE PRECISION 

756 IFPC-40THEN776: 'PARENTHESIS 

758 Q-Q+l 

760 IFPC-221THEN778: 'SQR 

762 IFPC=217THEN7 80: 'ABS 

764 IFPC-223THEN7 82: 'LOG 

766 IFPC-224THEN7 84: 'EXP 

768 IFPC-225THEN7 86: 'COS 

770 IFPC-226THEN7 88: 'SIN 

772 IFPC-227THEN7 90X 'TAN 

774 IFPC»228THEN7 92: 'ATN 

776 GOSUB700:GOTO7 94 

778 GOSUB700:GOSUB952:GOTO7 94 

7 60 GOSUB700:GOSUB954:GOTO7 94 

782 GOSUB700:GOSUB956:GOTO794 

7 84 GOSUB700:GOSUB958:GOTO7 94 

7 86 GOSUB700:GOSUB960:GOTO7 94 

788 GOSUB700:GOSUB962:GOTO794 

7 90 GOSUB700:GOSUB964:GOTO7 94 

792 GOSUB700:GOSUB966 

794 IFPC041THEN522 

7 96 RETURN 

800 i ************** CONVERSION ROUTINES *********** 

809 ' ROUTINE TO FIND LSB 6. MSB OF INTEGER NUMERIC STRING 

810 C$-="-:IFPC-206THENPC-45:GOSUB818ELSEGOSUB816:IFC$«= , " , THENCl— 1: 
RETURN 

812 C1«VAL(C$) 

814 Dl-Cl/256 :El-Cl-Dl*256:IFCK0THENDl=Dl+256: CI— CI t RETURN: ELSER 

ETURN 

816 IFPC<480RPO57THENRETURN 

818 C$-C$+CHR$(PC) :GOSUB514:GOT0816 

835 ' ROUTINES TO FIND LSB & MSB OF ADDRESSES ABOVE 1ST 32K 

836 Dl-Cl/256 :El«Cl-Dl*256:Dl«Dl+256: RETURN 

840 Z-VT+V1+V1:P1=Z/256:P-Z-P1*256:P1«P1+256:RETURN 

844 ' ROUTINE TO CONVERT NUMERIC STRING TO 4-BYTE SINGLE PRECISION 
REPRESENTATION 

845 CS«CHR$(PC) 

846 GOSUB514:IF(PC<58ANDPC>47)ORPC»46C$-C$+CHR$(PC) :GOT0846 

847 R-VAL(C$) :G0SUB848:E1«33 :D1«65:GOSUB902:C1«B3:GOSUB910 :P«35:GO 
SUB512:C1°B2:GOSUB910:P-35:GOSUB512:C1~B1:GOSUB910:P<O5:GOSUB512:C 
1 =BE : GOSUB910 : Q-Q-l : RETURN 

848 IFR«0THENBE=0:B1«0:B2«0:B3=0: RETURN 

849 Y1-1:Y2«2:N-1:IPY1>RTHEN852 

850 IFY2<-RTHENY1-Y1+Y1:Y2-Y2+Y2:N«N+1»GOTO850 

851 GOT0853 

852 IFR<Y1THENY1-Y1/2:Y2-Y2/2:N-N-1:G0T0852 

853 BE«N+128:X1«0:R«R-Y1:GOSUB856:B1-B 

854 GOSUB857:Xl-X:GOSUB856:B2-B 

855 GOSUB857 :X1=X :GOSUB856 :B3=B: RETURN 

856 GOSUB857iX2-X:GOSUB857iX3-X:GOSUB857:X4-X:GOSUB857:X5-X:GOSUB8 
57:X6-X:GOSUB857:X7-X:GOSUB857:X8-X:B«Xl+Xl+X2:B«B+B+X3iB«B+B+X4iB 
-B+B+X5 : B-B+B+X6 : B-B+B+X7 : B-B+B+X 8 : RETURN 

857 Yl-Yl/ 2 :RT-R-Yl:IFRT<0X-0: RETURN :ELSEX-1:R-RT: RETURN 

879 ' ROUTINE TO POKE STRING IN TEMPORARY STORAGE AREA 

880 C1-MF:GOSUB836:GOSUB900:NN-1 

881 IFPC-34GOSUB890:RETURN 

882 GOSUB889 

883 IFFP»1ANDPEEK(Q)«32Q=Q+1:PC=32:NN«NN+1:G0T0885 

884 GOSUB514:NN-NN+l 

885 IFFP-1AND(PC-340RC-2)G0SUB 890: RETURN 

886 IFFP-0AND(PC»58ORC-2)GOSUB890:RETURN 

888 GOT0882 

889 P-62iGOSUB512:P-PC:GOSUB512:P-18:GOSUB512:IFPC<>0THENP-19:GOSU 

Listing 1 continued 



and hit the enter key to save the com- 
piled program. 

To load Pong, type in LOAD 
PONG/CMD from DOS, hit the enter 
key, type in BASIC - M:63484, hit the 
enter key, and type in DEFUSR = 
-2052:A = USR(0) and hit the enter 
key. The compiled program starts run- 
ning immediately. 

Troubleshooting 

FastBas checks for some syntax errors 
during compilation. However, other er- 
rors go undetected until you try to run the 
program. 

If the compiled program runs but 
gives different results than its Basic 
equivalent, check arithmetic opera- 
tions. The compiler and the interpreter 
carry out the order of arithmetic opera- 
tions in a single-precision variable dif- 
ferently. Check also if a machine-code 
variable appears in the right side of an 
assignment statement before it's ini- 
tialized. 

If the compiled program crashes, 
check the For. . .Next loops; make sure 
they're set up properly and that the pro- 
gram doesn't jump out of a loop. 

Modifications 

Analyzing the code in memory with a 
disassembler provides many clues to 
machine-language programming. For 
example, you can examine single-preci- 
sion math routines and write similar 
code in your programs using the com- 
piled routines as a guide. 

All essential statements used in 
writing FastBas are in the list of com- 
pilable statements, so it's possible to 
rewrite the entire compiler and structure 
it so the program can compile itself. 

However, the size of the Basic pro- 
gram that you must write, the number 
of GOTO and GOSUB statements, and 
the size of the resulting code might make 
it impractical. 

Also, you'd have to change many of 
the variables to single-precision to have 
the program compile itself, so an in- 
crease in speed of more than three times 
is unlikely. 

It's an intriguing project, however, 
and I'll leave that as a challenge to 
anyone who cares to try. ■ 

Thomas L. Quindry is an Associate 
Editor of 80 Micro. Contact him at 
TLQ Enterprises, 6237 Windward 
Drive, Burke, VA 22015. 
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MODEL IV 




64K 


$959.00 


2 DISKS RS 232 




MODEL IV P 


850.00 


MODEL12 


2999.00 


ONE DISK 


2339.00 



TRS-80 COMPUTERS 

MODEL 2000 $2060.00 

w/HD 3360.00 

COLOR COMPUTER 

64K 170.00 

MODEL 1 00 8K 350.00 
MODEL 100 24K 500.00 

Tandy 1200 HD IBM compatible $2599 

Terminal OT100 $699 

DISK DRIVES 

15MEGHD $2099.00 

COLOR DISK 275.00 

COLOR DISK 1 229.00 

PRINTERS 

ALL OKIDATA CALL 

GEMINI 10X 270.00 

GEMINI 15X 380.00 

DMP-110 $ 299.00 DMP-120 

DM P- 105 159.00 DMP-430 

DMP-500 1064.00 DMP-2100 

DMP420 680.00 DWP-210 

DWP-510 1149.00 CMP-2150 

Langley St. Clair Green and Amber Screen $89.00 

BODEX CORP. 

224 E. MAIN ST. 

MARLBORO, MASS. 01752 

Phone (617) 485-5115 or 481-1029 

TRS-80 Txademark ol Tandy Corp. 



$ 379.00 

699.00 

1598.00 

459.00 

3135.00 



S 381 



Multi-User 

Manufacturing Control 

Software 

(XENIX TU OPERATING SYSTEM) 





AT LAST 

A system designed 
specifically for manufacturing 

•INVENTORY CONTROL 

•MATERIAL REQUIREMENTS PLANNING 

•CUSTOMER ORDER ENTRY 

•ACCOUNTING 

Features: — Menu Driven — System Security 
-User Designed Data Base 
— Customization Available 

For More Information, Call or Write: Software Concepts 

5786 Annarue Place 
- 192 Columbus, Ohio 43229 
(614) 895-7196 

XENIX TM IS A TRADEMARK OF MICROSOFT CORPORATION 

\ . 

* See List ol Advertisers on Page 145 



EXPAND TRS-80 MEMORY 



TRS-80 to 16K, 32K, or 48K 

"Model 1 = From 4K- 1 6K Requires (1 ) One Kit 
Model 3 = From 4K-48K Requires (3) Three Kits 
Color = From 4K- 1 6K Requires (1 ) Kit 

"Model 1 equipped wtth Expansion Board up to 48K Two Kits Required 
- One Kit Required for each 16K of Expansion - 

TRS-16K3 200ns for Color & Model III $8.95 

TRS-16K4 250ns for Model I $6.95 



TRS-80 Color 32K or 64K Conversion Kit 



Easy to install kits come complete with 8 ea. 41 64-2 (200ns) 64K 
dynamic RAMs and conversion documentation. Converts TRS-80 
color computers with D, E, ET F and NC circuit boards to 32K. 
Also converts TRS-80 color computer II to 64K Flex DOS or OS-9 
required to utilize full 64K RAM on all computers. 

TRS-64K2 MJ '■ 'i i fi ■^mmm 

Easy to Install kit comes complete with 8 each 4164 (200ns) 64K dynamic 
RAMs and conversion documentation. Converts TRS-80 Model IV computers 
from 1 6K to 64K Also expands Model 4P from 64K to 1 28K. 

TRS-64K2 $38.95 

(Converts the Model IV from 1 6K to 64K or will expand the Model 4P from 
64Kto128K) 

TRS-64K2PAL (Model IV only) $59.95 

(8-41 64's with PAL Chip to expand from 64K to 128K) 

DIP/IC INSERTER/EXTRACTOR TOOLS 

MOS-1416 (Inserts all above RAM pkgs. 14/16 pin) $10.95 

EX-1 (Extracts 8-24 pin pkgs.) $ 2.49 

5V 4 " Diskettes 

«*i art SSOO = Single Sided Double Density 

■yjjg.- DSDO = Double Sided Double Density 

ULTRA MAGNETICS 

Pint No Description Boxed Price 

UM51401 SSDD with Hub Ring 10 $24.95 
UM52401 DSDD with Hub Ring 10 S33.95 

All diskettes are soft-sectored and have hub rings. 

Bulk prices available on request. 





DISK 
MINDER 



• Attractive, functional disk storage system • 36 (3", 3.25" and 3.5"). 50 (8") or 
75 (5V) disk storage capacity • Easy filing and retrieving • Protects disk 
from dust contamination ■ Molded from durable smoked plastic with front 
carrying handle • Size (DM36): 8VL x 5 VW x 4 VD ' Size (DM50 & DM75): 
7"W x 6VH x 9VD • Weight: 2 lbs 
Part No Deecripbon *** 

DM36 
DM75 
DM50 



Stores 36 (3", 3.25" and 3.5") Diskettes. . . . $19.95 ea. 

Stores 75 (5 V) Diskettes $19.95 ea. 

Stores 50 (8") Diskettes $29.95 ea. 



We also specialize in Integrated circuits, custom cables, 

power supplies, keyboards, and much, much more! 

Give us a call today! 



iDl/Sl iiii-^> 



Protect Yourself... 
DATASHIELD 
Surge Protector 

Eliminates voitage spikes and EMI-RFI noise be- 
fore it can damage your equipment or cause 
data loss. Six month warranty. 

Model 100 $69.95 

DATA SHIELD Back-Up Power Source also available 
Protect your TRS-80 Model computers. 

PC200 (200 Watt Rating) $299.95 

XT300 (300 Watt Rating) $399.95 




S10.00 Minimum Order -US Fund* Only 
California Resident) Add *'i°n Salsa Tai 
Shipping - Add S*» pka $1 SO Insurance 
S»nd S A S E to' Monthly Safe! Flymri 



Spec Sheets - 30c each 
Send 51 00 Postage for your 
FREE 1985 JAMECO CATALOG 
Pries* Subiect lo Change 



MotttxCortf 



J a 
■fl*Hi.iKIWI 




1355 SHOREWAY ROAD, BELMONT, CA 94002 ^534 
Phone Orders Welcome (415) 592-8097 Telex: 176043 
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WANTED 

Scripsit" or A 
SuperScripsif^ 

us&rs . .. — sjjcc 

Now you can use that fabulous word 
processor from Radio Shack with 
your non-Tandy printer! No point in 
missing out! Your printer CAN work 
great with SuperScripsit"! 



PowerDRIVER 



j? 



These printers are fully supported 



EPSON MX-80/100 Series 
EPSON FX/RX 80/100 Series 
Most all EPSON -compatibles." 
Cltoh 8510 Prowriter 
Cltoh Starwriter Daisy Wheel 
Cltoh A1 0-20 Daisy Wheel 
Okidata 92/93 Dot Matrix 



Model 4 Now Supported! 

All features of SuperScnpsiP are sup- 
ported to the fullest capabilities of the 
printer involved Drivers are easy to install 
easy to use and no extra commands to 

PowerDRIVER Only $29. 95 each 

PLEASE SPECIFY PRINTER TYPE 



?i 



PowerSCRIPT 



A HIGH-POWER modification 
for Scripsit" from Radio Shack" 

Give Scripsit" Full Power 1 PowerSCRIPT 
is a modification tor the original Scnpsit'LC" 
■ allows it to work on Model I or III 
and gives it the power of many of the 
newer expensive word processors Define 
printer codes for ANY printer Embed print 
er codes in the middle of a line! Alphabe- 
tized directories' User-definable printer 
filters 1 User-definable HELP-FILE' Chain 
files together at print time from any part of 
the text Logical EXIT to DOS optional 
vie me-'eed after OR. FETCH, 
CHAIN, and KILL command and more! 
Compatible with most maior DOS's Simply 
use the enclosed INSTALL program, and 
you will be up and running m NO TIME 1 
Includes full documentation. Get lots of 
new features for a very small price 1 



PowerSCRIPT 



Only $39.95 



}=~ 



... 



PRODUCTS FROM BRrrZE OSD 



H500 Stemmons I «, 

Suite 125 

Dallas Te.as ?5229 

(2141484 2976 



5 

<NC -I 



^306 1 

Scripsit and Supe'Scipsil — f 

m T-ace^a"-.; o' Tandy Cofp ~Z 




listing I continued 

B51 2 : RETURN : ELSERETURN 

890 Q-Q-1:C-0:PC=0:GOSUB889:IFNN>SLTHENPRINT:PRINT"STRING TOO LONG 
" : GOT0522 : ELSERETURN 

899 ' *********** FREQUENTLY USED MACHINE CODES ************ 

900 P=17:GOSUB512:P=El:GOSUB512:P=Dl:GOSUB512:RETURN: 'LD DE.E1D1 
902 P=33:GOSUB512:P=E1:GOSUB512:P=D1:GOSUB512:RETURN: 'LD HL.ElDl 
904 P«25:GOSUB51 2: RETURN: 'ADD HL,DE 

906 P=41:GOSUB512:P«41:GOSUB512:RETURN: ' ADD HL,HL; ADD HL.HL 

908 P-235:GOSUB512:RETURN: • EXC HL,DE 

910 P=54:GOSUB512:P«Cl:GOSUB512:RETURNi 'LD (HL) ,C1 

912 C1-VT+V0+V0:GOSUB836:P=42:GOSUB512:P-E1:GOSUB512:P=D1:GOSUB512 
:RETURN: ' LD HL, (CI) 

914 P=42:GOSUB512:GOSUB840:GOSUB512:P=P1:GOSUB512:RETURN:'LD HL, (P 
IP) 

916 P=34:GOSUB512:GOSUB840:GOSUB512:P=P1:GOSUB512:RETURN:'LD (PP1) 
,HL 

918 P=195:GOSUB512:P-El:GOSUB512:P«Dl:GOSUB512:RETURN:'JP E1D1 
920 P=183:GOSUB512:P-237:GOSUB512:P=82:GOSUB512:RETURN: "OR A; SBC 

HL,DE 

922 P=40:GOSUB512:P-3:GOSUB512:RETURN: 'JR Z,3 
924 P=225:GOSUB51 2: RETURN: 'POP HL 
926 P=229:GOSUB512:RETURN: 'PUSH HL 
928 P-20 9:GOSUB512:RETURN: 'POP DE 
930 P=213:GOSUB512:RETURN: 'PUSH DE 

932 P=205:GOSUB512:P-177:GOSUB512:P=9:GOSUB512:RETURN: 'MOVE VARIAB 
LE TO 4121H AREA 

934 P=205:GOSUB512:P-164:GOSUB512:P=9:GOSUB512:RETURN:'MOVE FROM 4 
121H TO STACK 

936 P-193:GOSUB512:GOSUB928:RETURN: 'POP BC & DE 

93 8 ' ARITHMETIC OPERATION i. FUNCTION ROUTINES 

940 P*205:GOSUB512:P=22:GOSUB512:P-7:GOSUB512: RETURN 
942 P=205:GOSUB51 2 :P-19:GOSUB512:P-7:GOSUB512: RETURN 
944 P«205:GOSUB512:P=71:GOSUB512:P-8:GOSUB512:RETURN 
946 P=205:GOSUB51 2 :P>=162:GOSUB512:P-8:GOSUB512: RETURN 

94 8 P=20 5 : G0SUB51 2 : P=247 :G0SUB51 2 : P-l 9: G0SUB51 2 : RETURN 
950 P=205 : G0SUB51 2 : P-12 :GOSUB512 : : P-10 :GOSUB512 : RETURN 
952 P=205:GOSUB512:P«231:GOSUB512:P=19:GOSUB512:RETURN 

954 P-205:GOSUB512:P=23 9:GOSUB512:P-10:GOSUB512:P=205:GOSUB512:P=1 

19:GOSUB512:P=9:GOSUB512:RETURN 

956 P=205:GOSUB512:P-9:GOSUB512:P=8:GOSUB512:RETURN 

95 6 P=20 5:GOSUB512:P=57:GOSUB512:P-20:GOSUB512:RETURN 

96 P=205:GOSUB512:P=6 5:GOSUB512:P=21:GOSUB512:RETURN 
962 P=205:GOSUB5l 2 :P«71:GOSUB512:P=21:GOSUB512: RETURN 
96 4 P»205:GOSUB512:P=16 8:GOSUB512:P«21:GOSUB512:RETURN 
966 P=205:GOSUB512:P-189:GOSUB512:P=21:GOSUB512:RETURN 
96 8 P=20 5 .-GOSUB512 : P=167 : GOSUB51 2 : P=40 :GOSUB512 : RETURN 

970 P=62:GOSUB512:P=4:GOSUB512:P=50:GOSUB512:P=175:GOSUB512:P«64:G 

0SUB51 2: RETURN 

972 P=205:GOSUB512:P=203:GOSUB512:P-9:GOSUB512:RETURN 

999 . ................. MAIN PR0GRAM ...................... 

1000 CLEAR200:DEFINTA-P,S-X,Z:DIML1(100) ,L2(100) ,A(50) ,A1(50) ,D(25 
) ,E(25) :FS="BASIC COMPILER" +STRING$ ( 50 , " ") :T$-CHR$ ( 32) +CHR$( 5 8) +C 
HR$(32):CLS 

1005 Q=PEEK(16548) +256*PEEK ( 16549) :L=1 :K«0 :FP«0:CF-0:MC«PEEK(16561 
)+PEEK(16562)*256+3-65536:M=MC:MR«0'IF YOU HAVE A 32K SYSTEM, MAKE 
MR=1; ELSE IF YOU HAVE A 4 8K SYSTEM, MR=0 

1007 FM-PEEK( 16633 )+PEEK( 16634) *256+1650-65536:IFFM>MCTHENCl=FM-3: 
GOSUB814:PRINT§512, "LOCATION TO COMPILE CHANGED TO PROTECT BASIC P 
ROGRAM":FORM1«1TO2000:NEXT:POKE16561,E1:POKE16562,D1:GOTO1000 

1010 IS«10:DO=20:DT=20:SL=40:NO-26:NT«2:NS=26: 'ISM OF ADDITIONAL 
S.P. VARIABLES PER LETTER; DO-DIM OF 1-D ARRAYS; DT=DIM OF 2-D ARR 
AYS; SL-LENGTH OF STRINGS; N0=# OF 1-D ARRAYS ALLOWED; NT=# OF 2-D 

ARRAYS ALLOWED; NS=# OF STRINGS ALLOWED 

1011 Q1=Q:Q«Q+4:GOSUB514:IFPC=184THENGOSUB7100'CLEAR 

1012 IPPC=13 8THENGOSUB7110 : IFIS«0THENIS=1 'DIM 

1013 Q=Q1:PRINT§448,"IS -' IS :PRINT"DO ="DO: PRINT'DT ="DT:PRINT'SL 
="SL: PRINT "NO -"NO: PRINT'NT ="NT:PRINT"NS ■"NS 

1015 VT=-2*26-MR*163 84:VF— 4*26* (1+IS) +VT: VA=-4*N0*D0+VF:VD— 4*NT* 
DT*DT-2*NT*DT+VA:VS— NS* (SL+1) +VD: VN«- (SL+1) +VS: PRINT§856 , "ZERO VA 
RIABLES" :G0SUB71 36 'CLEAR 

1020 ' MC=END OF VARIABLE STORAGE AREA AND ALSO THE START OF MACHI 
NE CODE; VT=START OF INTEGER STORAGE; VF-START OF SIMPLE VARIABLE 
STORAGE; VA=START OF 1-D ARRAY STORAGE; VD=START OF 2-D ARRAY STOR 
AGE; VS-START OF STRING STORAGE; VN=TEMP. STORAGE 

1021 IPNT>0GOSUB7000: ' GENERATE CODE TO STORE 2-D ARRAY ADDRESSES 
1025 Ml=PEEK(Q)+PEEK(Q+l)*256:Ll(L)=PEEK(Q+2)+PEEK(Q+3)*256 

1030 GOSUB524 

1035 PRINT: PRINTe960," LINE #"Ll (L) ;M; ■ : " ; : L2 (L) «=M:L»L+1 :Q-Q+4 

1040 IFLl(L-l) >500THEN1210 

1045 C=0:GOSUB514:IFC=2THEN1140 

1050 IPPC=133ORPC-134ORPC-136OR(PO137ANDPC<140)ORPC-142ORPC=144OR 

PC-1480R(PC>14 9ANDPC<177)0R(PC>17 8ANDPC<184)0R(PO184ANDPC<189)0R( 

PC>189ANDPC<202)ORPC-203ORPC=204ORPC=210ORPC=211THEN522: 'ERROR TRA 

P 

1055 IPPC=2150R(PC>216ANDPC<221)0R(PO228ANDPC<251)THEN522: 'ERROR 
TRAP 

1056 IFPC=184GOSUB7135' CLEAR 

1057 IFPC=140GOSUB514: ' LET 

Lining I continued 
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1085 IFPC-141GOSUB3500: 
1090 IFPC=143GOSUB3000: 
1095 IFPO145GOSUB3700: 



Listing I continued 

1060 IPPO64ANDPC<9lANDPN=37Q=Q-lsGOSUB2000: ' INTEGER LET 
1065 * SINGLE PRECISION LET 

1070 IFPC>64ANDPC<91ANDPNO37ANDPNO36Q-Q-l:G0SUB535iG0SUB514:G0SU 

B514iIF(PC-4 9ANDPN-207)OR(PC-48ANDPN-20 5)GOSUB4000:ELSEQ-Q-2:GOSUB 

514:IFPCO213THEN522ELSEGOSUB700tGOSUB565tGOSUB972 

1075 IFPC>64ANDPC<9lANDPN»36Q-Q-lxGOSUB4500t ' STRING LET 

1080 IFPO17 8GOSUB2500: ' PRINT 

GOTO 

IF ... THEN 

GOSUB 

1100 IFPC=146GOSUB3800: ' RETURN 

110 5 IFPC«132THENP-205:GOSUB512:P-201:GOSUB512:P-liGOSUB512:GOSUB5 
14:IFPC<>58ANDC<>2THEN522: ' CLS 
1110 IFPC-137GOSUB2700: "INPUT 
1115 IFPC-129GOSUB5000: ' FOR 
1120 IFPC=135GOSUB5500: ' NEXT 
1125 IFPC=130ORPC=131GOSUB6000: ' SET & RESET 
1127 IFPC«177GOSUB6500: ' POKE 

1130 IFPC»128P-205:GOSUB512:P-157:GOSUB512:P-10:GOSUB512:P-201:GOS 
UB512:' END 

1135 IFPEEK(Q-1)=58ORPEEK(Q-1)«149PRINTT$;:GOTO1045: ' TEST FOR TER 
MINATOR i. ELSE TOKEN 

1140 Q=Ml:PRINTjGOTO1025: * START NEW LINE 

1200 ■ ********* ROUTINE TO ADJUST THE MACHINE CODE JUMPS ****** 
1210 GOSUB524:IFK=0THEN1250ELSEPRINTg960, "ADJUSTING JUMP ADDRESSES 

1220 F0RI=1T0K:DN=PEEK(A(I))+256*PEEK(A(I)+1) :DH-0 

1230 FORJ«lTOL:IFDN«Ll(J)THENDH«L2(J) :PRINTLl(J); 

1240 NEXTJ : C1=DH : GOSUB 836 : POKEA ( I ) , El : POKEA ( I ) +1 , Dl : NEXTI 

1250 CLS:IFVN-3>MTHEN1310ELSETR=M-VN+3:MO=TR/256:IFTROMO*256THENM 

O-MO+1 

1260 PRINT: PRINT"COMPILED PROGRAM CONFLICTS WITH VARIABLE STORAGE 

AREA." 

1280 IFMC-MO*256>FMTHENGOT01286ELSEPRINT:PRINT"TO RECOMPILE PROGRA 

M IN LOWER MEMORY WOULD OVERWRITE YOUR" :PRINT"BASIC PROGRAM. TRY T 

REDUCE THE VARIABLE STORAGE AREA BY" :PRINT"REDIMENSIONING VARIAB 

LES. PROTECTED MEMORY HAS BEEN MOVED TO" 

1285 PRINT'THE MINIMUM VALUE TO ALLOW THE BASIC COMPILER TO RUN.": 
Cl=FM-3:GOSUB814:POKE16561,El:POKE16562,Dl:END 

1286 PRINT-RELOCATING PROGRAM . . . " iM2-M:P-33 :GOSUB512 :Cl-MC:GOSU 
B814:P=El:GOSUB512:P=Dl:GOSUB512:P=17:GOSUB512:P=El:GOSUB512:P-Dl- 
MO:GOSUB512:P=l:GOSUB512:Cl=M2-MC:GOSUB814:P=El:GOSUB512:P=Dl:GOSU 
B512 

1287 P=237:GOSUB512:P=176:GOSUB512:P=201:GOSUB512:DEFUSR1=M2:MC=MC 
-MO*256:M-M-MO*256-12 

1288 IFK1>0THENFORI=1TOK1:POKEA1(I) ,PEEK(A1(I) )-MO:NEXTI 

1289 IFK>0THENFORI=1TOK:POKEA(I) +1,PEEK(A(I) +1) -MO: NEXTI 

1290 PRINT :PRINT"PROTECTED MEMORY POINTER CHANGED AND PROGRAM RELO 
CATED TO":GOTO1310 

1299 ' ****** ROUTINE TO EXECUTE THE MACHINE CODE DIRECTLY ******* 
* 

1300 GOSUB814 : E2-E1/16 :D2-D1/16 : El-=El-E2*16 :Dl-Dl-D2*16 : IFD2>9THEN 
D2=D2+55ELSED2=D2+4 8 

1301 IFDl>9THENDl=*Dl+55ELSEDl«Dl+4 8 

1302 IFE2>9THENE2=E2+55ELSEE2=E2+4 8 

1303 IFEl>9THENEl-El+55ELSEEl-El+4 8 

1304 B$="&H"+CHR$(D2)+CHR$(D1)+CHR$(E2) +CHR$(El) :PRINTB$, : RETURN 'C 
ON VERS ION TO HEX 

1310 DEFUSR0=MC : PRINT§3 84 , , "START" , " END" , "TRANSFER" : PRINT'HEXIDECI 
MAL",:C1-MC:GOSUB1300:C1«M:GOSUB1300:C1«MC:GOSUB1300:PRINT"DECIMAL 
"TAB(15) 65536+MCTAB(31) 65536+MTAB(47) 65536+MC: PRINT"DECIMAL" , MC,M, 
MC: PRINT 

1315 PRINT'VARIABLES STORED - " ; :Cl-VN-3 :GOSUB1300 :PRINT: PRINT'TO 
TOP OF MEMORY - " ; :C1=-MR*16384-1:GOSUB1300 :PRINT 

1316 IFTRO0THENPOKE16562,PEEK(16562)-MO:CLEAR50:X=USR1(0) 
1320 PRINT3960,"<ENTER> TO RUN MACHINE CODE . . . " ; 

1330 INPUTA$ 

1340 CLS:X-USR(0) : END 

1400 ' ********** END OF MAIN PROGRAM ************** 

1999 ■ INTEGER ASSIGNMENT ROUTINE 

2000 GOSUB514:GOSUB518:GOSUB520:V1=PC-65:GOSUB514:IFPCO213THEN522 

2010 GOSUB514 : IF(PC-49ANDPN=207) OR(PC=4 8ANDPN=205) THEN2400 

2011 IFPC=246THENGOSUB2017:P-126:GOSUB512:GOTO2027' ASC 

2012 IFPCOl92THEN2015ELSEGOSUB2017iVl=V3:Cl=VN-2:GOSUB814:P=34:GO 
SUB512:P-El:GOSUB512:P-Dl:GOSUB512:P-6:GOSUB512:P=255:GOSUB512:P=l 
26:GOSUB512:P=4:GOSUB512:P=35:GOSUB512:P-183:GOSUB512:P=32:GOSUB51 
2:P-250:GOSUB512:P-120:GOSUB512 

2013 C1«VN-3:GOSUB814:GOSUB902:P-119:GOSUB512:GOSUB916:GOSUB514:RE 
TURN' VARPTR OF STRING 

2015 IFPCO245THEN2020ELSEGOSUB2017:P»126:GOSUB512:P=254:GOSUB512: 
P-45:GOSUB512:P-32:GOSUB512:P-2:GOSUB512:P=55:GOSUB512:P-35:GOSUB5 
12:P»245:GOSUB512 

2016 P=20 5:GOSUB512:P-90:GOSUB512:P=30:GOSUB512:P-241:GOSUB512:P-4 
8 : GOSUB512 : P-7 : GOSUB51 2 : P-33 : GOSUB51 2 : P=0 : GOSUB51 2 : GOSUB51 2 : P=l 83 : 
GOSUB512:P=237:GOSUB512:P=82:GOSUB512:GOSUB90 8:GOSUB90 8:V1-V3:GOSU 
B916:GOSUB514 j RETURN' VAL 

2017 V3-Vl:Q=Q+l:G0SUB514:G0SUB518:IFPNO36THEN522:ELSEQ=Q+l:Vl-PC 

living I continued 



WHEN YOU TYPE 

"TALLY" 

you get what you 

thought those 

"CALC" programs 

would give you: 

• easy to use 

• simple and logical 

• totals by item and category 

• every category named 

• built-in sorts 

• clear documentation 




Whether you're managing 

a home budget or business 

expenses, TALLYM ASTER 

gives you better 

understanding and control. 

Customers foid us: 
"Looks like just what I need to 
keep track of Income & Expenses 
in my Peal Estate appraisal ^ 
business." (L E ) gn 

"Well-packaged, clear J-J*""^ ', c, 7-i£ 
instructions, easy to 

use." (G L G) 

"Just what we need for In- 
house Budgets." (N Ariz Umv) 

And, '80 MICRO gave it a Five 
Star review: "I recommend Tally- 
master to every user who wants a 
good, easy, accurate bookkeep- 
ing system, and to anyone inter- 
ested in home or small business 
budgeting and bookkeeping." 
(July. 1983) 




All this for only $79*95 

(TRS-80 Models I, III. 48K. disk) 



Also available for MS DOS 

128K. disk. Has Function Key support and 
an even faster sort. 
Special price: S99.95 

ORDER NOW, TOLL-FREE 
(800) 824-7888, oper. 422 



Htm 



Dept. G. Box 560, No. Hollywood, CA 91603 

(818) 764-3131 Inletmaiian and sinw-day proctssmg 

TFRMS VISA MC cnec*s. COD Please aad S2 00 

snipping m U S c Canada sales tax m CA 

Most orders t'Hed within one day 



S*« List ot Aavertisers on Page 145 
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plicate Most Protected Disks 
Edit (Zap) Sectors 
■ Powerful Disk Formater 

menu driven with help command for the novice 

short cuts (or the experienced user 

self booting, does not require DOS 

simultaneous Hex and ASCII display 

reads SD, DO or Mixed Density with auto density detect 

reads single or double sided, 5 1/4" or 8" disks 

YOU CAN NOW 



Read, edit, write and ltep through sectors 

and Uacksdncludinq, information between lectors) 
Duplicate most CP/M" disks lor other P.C.'s 
Duplicate standard format, special format & data disks 
Identify protection secrets and create your own schemes 
Read track address; see actual track and sector numbers 
Repair CRC errors 
t»change data address marks 
format 128, 2';6, 512 or 1024 byte sectors 
Interlace with Monitor /Disassembler 

jnknown DOS systems 
Write special tracks; make protected disks 
Print video display through RS2)2 or parallel port 
A-. 1 •.' !!•! 



• 265 



$38.95 Pius $1.50 s&h 

for unprotected disk and 31 -page manual 






VISA 



Tennessee residents include 4.5* sales tax 
For personal checks allow 2 weeks 
Specify TRS-80* model I, III, or 4 III 

•IRS-BO trademark Tandy Corp. 



(615)482-2007 
RIDGE -TEC, INC 
740 Robertsvllle Rood 
Oak Ridge, TN 37830 

CP/M trademark Digital Research Corp. 



<¥> 



PROfixlll™ 



^^RESTRUCTURE & TRANSFER 
To* UTILITY 

** $49.95 

For PROFILE® III PLUS 
Model Ml/4 

Needs change — Experience teaches — and if you could redefine your data base 
today, you probably would change a tew things — 

WELL, NOW YOU CAN! 
PROfix'MI Provides you, as a user of Profile III Plus, with a powerful, easy- 
to-use package that allows you to reorganize your data base TO MEE1 
TODAY'S NEEDS, and then moves your existing data into your new file struc- 
ture 

* * ' FEATURES * * * 

• EASY TO USE— no special charts to fill out 

• FAST— assembly language speed 

• RE-ARRANGE FIELDS-even across segments 

• DROP OR ADD FIELDS 

• CHANCE FIELD LENCTHS-R/L justify data 

• CHANCE NUMBER OF SECMENTS 

• CREATE SORTED FILE -drop deleted fields 

• LITERAL INSERTION-spectfied fields 

• COMPLETE USER MANUAL -with examples 

TO ORDER -Send S4995 

Plus $2,50 for Handling and Postage 

Check. MO, VISA/MC 

(for charge card, give expiration date, number) 

-To- 

BLUE RIDGE SOFTWARE 

230 Chesterfield Road 

Lynchburg, VA 24502 

For phone orders or more information 

Call (804) 2390574 

$1 00 off on phone orders! 

Virginia residents add 4% sales tax 

Most orders filled within 24 hours 

(allow 2 weeks for checks to clear) ^186 

Profile is a registered trademark of Tandy Corp 



TRS-80" "CAN YOU BUY DIRECT? 



WILL YOU PAY TOO MUCH? 



MODEL 4 128K 2 DRIVES 



MODEL 12 768K 2 DRIVES 



J 



Ask About Our 

"30 DAYS 

Buy- Back- Policy" 



MODEL 16B 768K 1 DRIVE 
PLUS 15 MEG HARDDRIVE 
(BUILT-IN) 
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MODEL 4 SCRIPSIT 

THE WRITE WAY 




L 




by Clifford Knight 

What Model 4 Scripsit should have been— 
ScripAid reassigns Scripsit's command keys, 
allows text preview on-screen, and provides 
a potpourri of type fonts. 

ike most Model 4 owners, I looked forward to Model 4 Scripsit with great 

anticipation. But I was disappointed when I found that Model 4 Scripsit 

was nothing more than a reassembled version of the Model III program. 

Tandy even included the old keycap "pasties" for Scripsit's command keys. 1 

decided to write a complete enhancement package called ScripAid that includes all 

the features I want in Model 4 Scripsit. 

ScripAid reassigns Scripsit's command keys to their mnemonic counterparts (see 
Table 1), lets you preview text on your screen before printing it out, and supports 
compressed, double-width, emphasized, italic, underline, double-strike, and 
super- or subscript characters (see the Figure). 

ScripAid consists of five programs. Program Listings 1 and 2 provide the actual 
Scripsit enhancements. Program Listing 3 installs the enhancement programs with a 
JCL file. Program Listing 4 lets you develop a customized printer driver for ScripAid. Program Listing 5 
gives you a help file template. 

The Programs 

Program Listing 1, Enhance/SRC, is the source code that implements ScripAid's enhanced commands. 
It also loads a printer driver and, if applicable, resets the Model 4's extra memory banks and changes Scrip- 
sit's start-of-text buffer pointers to allow more memory space for ScripAid routines. 

Program Listing 2, Rekey/SRC, contains patches to the command codes that change the more confusing 
Scripsit commands to easily remembered keys (yes, you can throw away the pasties). It also includes patch- 
es that alter the default left- and right-margin settings and the video line width. You can alter these fur- 
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;<TM=5 

>C=Y 

\3»»» ScripAid \4printer control demonstrations* »** 

>C=N 

\» 

This is an example of the power of \6\3Scr i pAi d\#\V . 

\3You can set the emphasized mode at the start of your text, and then add \6D0UB 
LE-STRIKEN& for added visual impact. 

\#You can switch to \2DOUBLE-WI DTH\ " and back. 

Or underline \5here\7. and \5there\7. as you wish. 

Even \ 1 compressedS ' and \ ' super \8</\7sub\S< scripts may be used. 

\3Y\*\20\"\3\6U\S.\» can \4do it all\* \3 with \6\5Scr 1 pAi d\7.\8«. 



• »# ScripAid printer cor, rol demon s tr at ion *»* 

• r, example of the power of ScripAid 

You can set the emphasized mode at the start of your text, and 
then add DOUBLE-STRIKE for added visual impact. 

You can swi t, h lr, I >« U I I c I I W I 1)1 H and baci- . 

Or underline here and ther^ as you wish. 

compressed nii.i ■ ■■•••■ _.,,, scripts may be used. 

YOU can do it »J 1 with ScripAid . 

Figure. Text with ScripAid commands embedded (top) and as it appears when you prim il out (hot lorn). 



ther if you want to boot up the program 
with other values set. In addition, I 
modified all prompts and error mes- 
sages to provide upper- and lowercase 
characters. 

Program Listing 3, the JCL file, in- 
stalls the Scripsit overlays assembled 
from the source code so you can use 
ScripAid. 

Program Listing 4, Driver/BAS, lets 
you customize a printer driver file. It 
prompts you to assign printer control 
codes for each ScripAid print com- 
mand. For instance, \1 is the ScripAid 
command that prints a compressed 
character. When Driver prompts you to 
input the code that makes your printer 
print a compressed character, you 
should find the right code in your print- 



The Key Box 

Model 4 
64KRAM 
Assembly Language 
Disk Basic 
TRSDOS 6.X.X 
Model 4 Scripsit 
Editor/ Assembler 



LOAD 80 
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er manual and type it in. 

Every printer requires a different 
driver as there are no standard printer 
control codes. Table 2 (p. 65) shows the 
codes I used with my Epson MX-80 
printer. Table 3 (p. 65) defines the print 
commands you embed in your text. 

Program Listing 5, Helper, gives you 
the information you need to develop a 
help file. 

Creating ScripAid 

Type in and assemble Program List- 
ings 1 and 2, and save them as En- 
hance/OVL and Rekey/OVL. 

Now you're ready to build the JCL 
file in Program Listing 3. Use the DOS 
Build command or Scripsit (saved in 
ASCII format) and write it to the same 
disk that contains the overlay files. (I 
recommend that you use a system disk 
in drive 1 as the target for all the Scrip- 
Aid files. This way, you'll end up with 
the entire ScripAid program on a single 
disk.) 

If you're a single-drive user, write all 
files to drive zero, then delete all 
references to drive 1 from the JCL file. 

To create Scrip Aid/CMD, first insert 
a back-up copy (for added security) of 
the original Scripsit program in drive ze- 
ro. The system disk containing both the 



ScripAid overlay files and the JCL file 
should be in drive 1. Now type in DO 
SCRIPAID: 1. This executes the DOS 
commands of the JCL file, transform- 
ing your version of Scripsit to the 
upgraded ScripAid. Single-drive users 
should copy their Scripsit to a system 
disk and assemble the two overlay files 
on the same disk. Then execute the 
modified JCL (mentioned above) and 
you're ready to use ScripAid. 

Although you don't have to use 
ScripAid 's new print codes, you do 
have to include at least one printer driv- 
er so the program can load and execute. 
You should name this driver De- 
fault/PDC and put it on the same disk 
as ScripAid. If you have access to more 
than one printer, you can develop driver 
files for each printer. When calling 
ScripAid, specify the driver you want 
on the TRSDOS command line by typ- 
ing in SCRIPAID followed by the driv- 
er file name. 

You can create a driver file for your 
printer with the help of Program Listing 
4. Here, the first screen prompts you to 
enter either a file name for the file you 
want to create, or hit controI-Q to quit. 
If you hit the enter key, the program us- 
es the file name Default. 

Once you specify the file name, 




NOW the One Person Who Cares Most About \bur 
Computer Can Protect Its Data — 



YOU! 



Introducing . . . Memory Minder from 
)&M Systems 

The most advanced disk drive 
testing program on the market. 

Until recently, only trained technicians using 
special equipment could check your disk drives 
for potential or actual problems. But now, thanks 
to major breakthroughs by J&M Systems, Ltd. 
and Dysan Corporation, YOU can be your own 
computer's technician. 

JVlemory Minder is the most comprehensive disk 
diagnostic program avai.able for microcomputers. 
With Memory Minder, you can periodically test 
disk drives to monitor long-term drift of head 
alignment, index hole timing, spindle speed, 
directional seek, and many other parameters. 
Then, if your head is out of alignment, Memory 
Minder can accurately align it once again. Early 
detection and correction of these problems will 
help protect you against costly data loss and 
down time. 

And with Memory Minder, you don't need a 
technical background to perform these tests. 
Simply follow the easy instructions in the 
manual or on the screen's menu. Now you can 



use state-of-the-art software to care for your 
hardware. 

IVlemory Minder is currently available for IBM, 
TRS-80, Kaypro and Sanyo systems. Only from 
j&M Systems. Prices start at $79. 



I'd like more information on Memory Minder 

Please send me your complete brochures 

Send me information on other fine products 



from If.M Systems 

I have the following computer 

Name 



Address 



City 



State 



.Zip. 



J fi M SYSTEMS, LTD. 



151 00 A Central Avenue S.E. 

Albuquerque, N.M. 87123 

505/292-4182 



*■ See List ot Advertisers on Page 14b 



80 Micro, January 1985 • 63 



"I am amazed at the broad spectrum of 
technical articles you publish, for both 
novice and advanced programmers . . ." 




Ii" you're still wondering which magazine you should 
buy for your TRS-80*. here's what 80 Micro readers 
have to say about their #1 system specific information 
source 

• 'Not only is the magazine very professionally done, 
but I have found something in almost every issue that 
has been worth the price of the subscription 

Roger I., llolstege 
Millersiilli: MD 

•"I was greatly impressed by your magazine. I got more 
useful information from that one issue of 80 than I have 
from countless other sources. . ." 

John M Crittenden 
Jackson. MS 

•"I have found 80 Micro to be the most valuable mag- 
azine pertaining to home computers on the market. . ." 

William C Hardin, Jr. 
Charlotte, SC 

80 Micro is the magazine for every TRS-80 user from 
beginner to advanced. 80 Micro is full of tutorials, free 
programs, hardware modifications, new product an- 
nouncements, product reviews, debugging tips, and 
more. 



And an 80 Micro subscription is risk-free. Ij you're 
not completely satisfied, you'll be reimbursed jor all un- 
delivered issues. See what 80 Micro can do for you. It's 
P\ for a lot of people. Fill out this order form and send 
it in now. 

TRS-M a a trademark of Radio Sbac* ■ tflnMcn of Tandy I n 



X GSI I warn .i no-risk subscription to the 
magazine tor begin nei to advanced TRS-80 
users. Send me 12 issues of 80 MICRO lot 
$24.97! I'll save 18'; ofl the newsstand price! 



Pavment Kudosed 



Bill me 



Name 



Address 
City 



State 



/,,. 



O.m.iil.i & Mexico. 527. !>7. Foreign surface S44.'.t". 1 year only. 
IS funds drawn on t'S hank Please allow t> 8 weeks lor delivery. 

80miCrO • PO Box W\ • Kamingdal?. NY 11737 

I - ESS 




ScripAid creates two files, one with the 
extension /PDC for the driver, and one 
with the extension /HLP for the driver 
help screen. The next screen displays the 
file name used, the current code assign- 
ments, and the shifted complements for 
keys 1-9. A prompt at the bottom of the 
screen gives you the following options: 
to enter the key you want programmed, 
to save the current assignments (S), or 
to abort and cancel all changes (A). 

If you hit any of the control-code 
keys, you'll be prompted to enter up to 
five decimal numbers that, in turn, 
form the format control string assigned 
to the previously selected key. After en- 
tering the five values you'll see that 
they've been assigned to the selected 
key. If your printer's control sequence 
doesn't require 5 bytes (values) then hit 
the enter key in response to the next 
CODE ft prompt to terminate data 
entry. 

Then ScripAid asks you to enter a 
short description (up to 70 characters) 
of this control string's function. The 
program displays this information 
when you request printer help from 
ScripAid. When you've finished pro- 
gramming, type in S to save the files. 
ScripAid then returns you to the first 
menu) from which you can opt to create 
another driver or quit ScripAid. 

If you want to include a help file with 
ScripAid, Program Listing 5 will help 
you build your own. Such a file, how- 
ever, takes up more than 20K of disk 
space, which is why I find a quick-refer- 
ence card more convenient. 

The Source Code 

Program Listing 1, ScripAid's source 
code, is fully commented, but it's im- 
portant that you understand the main 
logic flow. First, the program defines 
the supervisor calls (SVCs) and then 
assigns the hook vectors to and from 
Scripsit. Lines 880-1150 alter the sign- 



Reassigned Scripsit Commands 


General Commands 




Clear- B 


Enter text block 


Clear- 1 


Insert text 


Clear-G 


Start paragraph 


Clear-L 


End line 


Clear-N 


Force new page 


Clear-7 


Enter window mode 


Delete Commands 




Clear-G 


Delete paragraph 


Clear- L 


Delete line 


Clear-S 


Delete spaces to left of cursor 


Clear-W 


Delete word 


Insert Commands 




Clear-B 


Insert block 


Clear-L 


Insert line 


Exchange Commands 


Clear-B 


Exchange block 


Clear-G 


Exchange paragraph 


Clear-W 


Exchange words 


Enhanced Scripsit Commands 


Disk-related 




Brcak-Q 


Query disk directory 


Break-K 


Kill named file 


Printer related 




Break-P.Cnn 


Send CHRS(nn) to printer 


Break-P.T 


Send top-of-form character to printer 


B^ak- P. V 


Preview text (use 0-9 to control speed. 




@ to pause, shift/clear to abort) 


Help Screens 




Break-HK 


Keyboard help file 


Break -HP 


Printer help file 


Bank Switching 




Brcak-Bnn 


Make memory bank nn active buffer 


Table 1. ScripAid commands. 



Scrip \ id 




Commands 


Command Descriptions 


\1 


Set compressed-character mode 


V 


Reset compressed-character mode 


\2 


Set double- width mode 


V 


Reset double-width mode 


\3 


Set emphasized mode (except in 




compressed, sub-, or superscript 




modes) 


M 


Reset emphasized mode 


\4 


Set italics mode 


\$ 


Reset italics mode 


\5 


Set underline mode 


\* 


Reset underline mode 


\6 


Set double-strike mode 


\& 


Reset underline, sub-, and super- 




script modes 


V 


Set subscript mode 


V 


Set superscript mode 


\8 




\( 




\9 




\) 




Table 2. Suggested control key assignments for the 


Epson MX -80 Type III printer. 



ScripAid 


Printer 


Commands 


Codes 


\1 


15 


V 


18 


\2 


27 87 1 


\" 


27 87 


\3 


27 69 


\* 


27 70 


\4 


27 52 


\s 


27 53 


\5 


27 45 1 


\* 


27 45 


\6 


27 71 


\& 


27 72 27 84 


\7 


27 83 1 


V 


27 83 


\8 




\( 




\9 




\> 




Table 3. Definitions of the print 


commands. 





80 Micro, January 1985 • 65 



00100 
80110 


Program Listing 1 


. tnhanc 


t SRC. the source code for ScripAid enhancements. 
















00120 


I An enhancement packa 


ge for Model 4 SCRIPSIT adding: 






00130 




1> Directories 


from command line 






00140 




2> Kill 


files f 


ton command line 






00150 




3> Embedded printer control codes 






00160 




4> Printer code 


s from command line 






00170 




5> Formatted ou 


tput to video monitor 






00180 




6> Send 


TOF character to printer 






00190 




7> Bank 


switchi 


ng for 3 text bufferi 






00200 




8> On-line Help 


available 






00210 














00220 


; Install via: 










00230 














00240 


; 1 


memory 


(clear) 








00250 


; 2 


load scripsit/cmd 






00260 


; 3 


load rekey/ovl 








00270 


1 4 


load enhance/ovl 






00280 


; 5 


dump scripald/cmd (s-x ' 3800 ' ,e-x ' 6 970 ' , t-x ' 6 810 ' ) 






00290 














00300 














1 1 3 1 1 














00320 














00330 
00340 


DSPLY 


Supervi 
EQU 


sor Call 
0AH 








; DISPLAY A MESSAGE LINE 


00350 


LOGOT 


EQU 


0CH 


jDISPLAY & LOG A MESSAGE 






00360 


PAUSE 


EQU 


10H 


; DELAY FOR "BC" COUNTS 






00370 


CHNIO 


EQU 


14H 


;PASS TO NEXT MODULE IN DEV CHAIN 






00380 


ERROR 


EQU 


1AK 


;POST AN ERROR MESSAGE 






00390 


HIGH 


EQU 


64H 


;GET/PUT HIGHS/LOWS 






00400 


FLAGS 


EQU 


65H 


; POINT IY TO SYSTEM FLAGS 






00410 


PSPEC 


EQU 


4EH 


(VERIFY FILESPEC 






00420 


BANK 


EQU 


66H 


; MEMORY BANK SVC 






00430 


FEXT 


EQU 


4FH 


jADD FILESPEC IF NEEDED 






00440 


OPEN 


EQU 


3BH 


;OPEN A FILE 






00450 


GET 


EQU 


03H 


;GET A BYTE FROM FCB OR DCB 






00460 


CLOSE 


EQU 


3CH 


,-CLOSE A FILE 






00470 


CMNDR 


EQU 


19H 


;DO CMD & RET 






00480 


DECHEX 


EQU 


60H 


(ASCII -> BIN IN BC 






00490 


PRT 


EQU 


06H 


(CHAR TO PRINTER 






00500 


KEY 


EQU 


01H 


;WAIT F/ KEY 






00510 


DSP 


EQU 


02H 


;CHAR TO VIDEO 






00520 


KEYIN 


EQU 


09H 


;GET A LINE («KI) 






00530 


DOUIR 


EQU 


22H 


;DSP DIR OF DRIVE 






00540 


REMOV 


EQU 


3 9H 


(KILL A FILE 






00550 


EXIT 


EQU 


16H 


; RETURN TO DOS 






00560 


KBD 


EQU 


8H 


;WAIT FOR KEY 






00570 


HEXDEC 


EQU 


61H 


/CONVERT BIN-> ASCII 






00580 


VDCTL 


EQU 


0FH 


; VIDEO CONTROL SVC 






00590 


POSN 


EQU 


42H 


; POSITION TO RECORD 






00600 


READ 


EQU 


43H 


;READ A RECORD (DISK) 






00610 


1 












08620 


; 












00630 


; 








00640 














00650 


PRCALL 


EQU 


46C9H 


(LOCATION OF §PRT SVC CALL 






00660 


PRTCHK 


EQU 


4AE1H 


;GET *PR STATUS ROUTINE 






00670 


SCRPIN 


EQU 


5416H 


; NORMAL RE-ENRTY POINT 






00680 


ERRINv 


EQU 


5401H 


; "INVALID COMMAND" ENTRY 






006 90 


PREND 


EQU 


54EDH 


;HOOK F/ END OF PRINT ROUT 






00700 


SCRIPS 


EQU 


3900H 


,-ENTRY TO SCRIPSIT 






00710 


SCRXIT 


EQU 


383DH 


(EXIT CODE 






00720 


DOUT 


EQU 


5554H 


(FORMATTED OUTPUT CALL 






00730 


KSCAN 


EQU 


47B6H 


(KBSCAN IN SCRIPSIT 






00740 


OLDBUF 


EQU 


622BH 


(OLD TEXT BUFFER START 






00750 


CKPRPM 


EQU 


4A9CH 


;CK PRINT PARMS 






00760 


PRPMCK 


EQU 


4AF1H 


(SCIPSIT PRINT PARMCK 






00770 


BRKCK 


EQU 


4 6EEH 


(SCRIPSIT <BRK> PARMCK 






00780 


BRKTAB 


EQU 


4F6DH 


(<BRK> PARM TABLE 






00790 


RETBRK 


EQU 


48F1H 


(RET TO <BRK> ROUT 






00800 


SCRPBF 


EQU 


5F5AH 


(SCRIPSIT INT DISK I/O 






00810 


PRRETN 


EQU 


4BA5H 


(RET APTER *PR OUT 






00820 


PRCLN 


EQU 


5 4FCH 


(CLEAN UP AFTER *PR 






00830 


RETVEC 


EQU 


5EB2H 


(RETURN VECTOR 






00840 


WRTVID 


EQU 


4811H 


(REWRITE VIDEO IMAGE 






00850 


; 












00860 


• 












00870 


) 


••• Patch Sign- 


on Banner ••• 






00880 




ORG 


3EFBH 








00 890 




DEFB 


78 


(LENGTH OF MESSAGE 






00900 


; 


DEFM 


' • ScripAid • - Model 4 Version 3.1 - (c) 


1984 by 


Paladin 


Software - C 


. Knight 


1 








00910 


•LIST OFF 










00920 




DEPM 


' • ScripAid • - Model 4 Version 3.1 - (c) 


1984 by 


Paladin 


Sottvare - C 


. Knight 


* 








00930 


•LIST ON 










00940 


; 












00950 


; 












00960 


; 


••• Patch 


iminate reset of <BREAK-- vector *** 






00970 














00980 




ORG 


3906H 








.','--:•.' 




DEFW 


0000H 








01000 




DEFW 


0000H 








01010 




DEFW 


0000H 








01020 


; 












01030 


; 












01040 


; 


**• Set 


jumps to extension code "** 






01050 




ORG 


PRCALL 








01060 




CALL 


PRTOUT 








01070 


i 












01080 




ORG 


CKPRPM 








01090 




CALL 


CKPARM 


















Listing J lonlinued 




on banner, eliminate the code to reset 
the break vector (which creates prob- 
lems with the spooler), and arranges 
jumps from Scripsit to ScripAid. 

The initialization routine, assembled 
at memory address 6810 hexadecimal 
(hex), loads the selected or default 
printer driver and resets buffer pointers 
in Scripsit, making room for ScripAid. 
As the routine loads the driver codes, it 
saves the file name with the extension 
/HLP for later use as a printer Help 
file. The routine also verifies and initial- 
izes the optional memory buffers, if 
available. 

The code for ScripAid actually starts 
at line 3050 of Program Listing 1 . The 
PALBRK routine intercepts the break/ 
special-command call and checks for 
valid ScripAid commands, such as 
Query, Kill, Bank, and Help. You call 
these by entering the first letter of each 
command, followed by any needed 
parameters. 

The CKPARM routine in line 6840 of 
the source code parses the commands 
added to the Scripsit Print routine. 
Then ScripAid scans for Scripsit' s in- 
visible and pause commands. A reset 
carry flag (NC) indicates that Scripsit 
has located a valid parameter. Under 
these circumstances, ScripAid relin- 
quishes control to the Scripsit parame- 
ter. If the Scripsit parameters aren't 
found, ScripAid tests for these valid 
ScripAid commands: video (V), top-of- 
form (T), and control-code output (C). 

ScripAid outputs formatted text to 
the video by altering the output SVC 
number from 6 (@PRT) to 2 (@DSP), 
which reroutes each character to the 
monitor instead of to the printer port. 
Before output begins, however, Scrip- 
Aid links to the Scripsit routine that 
scans for the shift-clear (abort output) 
key sequence. This link calls a ScripAid 
routine to scan for the @ key (which 
pauses the output) or one of the number 
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ANYONE CAN USE OUR SOFTWARE! 
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MAIL PAC II and CHECKING PLUS represent a 
new generation of computer software. Our 
software doesn't even need a manual! Any- 
one can quickly learn to use either package 
by following simple, explicit on-screen 
instructions. But, for those of you who insist 
- we've included a complete user's manual 
as well. 



*..:.', Ml 
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MAIL PAC II * 











MAIL PAC II FEATURES: 
High Capacity — 

Stores from one to one million names in Zip Code, Numerical or Alpha- 
betical order The only limitation is your disk storage space 

Flexibility - 

Prints your mailing list on 1, 2. 3, or 4-across labels (with up to 5 user- 
defined lines on each label) or as a compact, user-designed directory 
The record length is completely user-defined, and each field within 
each of your records is completely variable (allowing storage of any 
number of characters for any particular address entry) Devote fields 
to telephone numbers, codes, or even special messages related to each 
particular name on file. 

Powerful — 

A built-in word processor allows you to create personalized form letters 
for each address on your list (or just a particular group of addresses) 

Ease of Use — 

Create new mailing lists, review existing lists, handle changes of 
address, delete cancelled names, sort lists, and purge duplicate names 
from your files. Complete on-screen instructions tell you in plain 
english exactly how to accomplish all of these tasks 

MAIL PAC II $9995 
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CHECKING PLUS 
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CHECKING PLUS FEATURES: 
Complete Check Register — 

Checking Plus stores your entire check register in a disk file, and then 
uses the data to balance your account, track your expenses, and help 
you make budget projections Review the entire checkbook, enter 
checks, deposits, fees and adjustments, mark outstanding checks when 
paid, and get an instant cash balance at any time All data can be viewed 
onscreen or printed out In report form 

Tax Preparation — 

Storage of monthly and yearly totals and other important information 
aids in income tax preparation, for your personal use or for your 
accountant 

Handles the Details - 

Store names and addresses for frequently written checks, then print 
checks to fit standard window envelopes, eliminating the need for extra 
typing You can even store any comment, explanation or other message 
(up to 255 characters) related to a particular check. 

Automatic Monthly Bill Payments — 

Enter amounts and names of payees for all of your fixed-cost monthly 
payments, and then sit back while the system automatically prints 
checks 

CHECKING PLUS $99.95 



Both Programs Require 48K And At Least One Disk Drive (2 Drives For 
Higher Storage Capacities) And All Hard Disk Systems Are Supported. 



FREE TRS-HO Mod LID & 4 programs suppled on DasPtus (minimum system) 
Complete DosPtus abo available 
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FOR YOUR TRS-80" • APPLE" • IBM PC" • NEC" • OSBORNE'" • XEROX- • KAYPRO" • TELEVIDEO" • ZENITH" • SANYO- 
DEC" • Tl PROFESSIONAL COMPUTER" • SUPERBRAIN JR " • EPSON* • Any CP'M' Computer 

CPM baaed Computers must be equipped with Mlctoioll BASIC (MBASIC Of BASIC -tO) 

TRS-BO i-ademark Tindy Corp - APPLE trademark Apple Cotp IBM PC trademark IBM Corp - ATARI trademark Alan. In< OSBORNE trademark Osborne Corp XEROX trademark Xero« Corp 

KAYVRO trademark Non-l.near Systems Inc TELEVIDEO trademark Tetev.deo Systems Inc - SANYO trademark Sanyo Corp NEC trademark NEC Corp DEC l.ademajk DjiUI Equipmeni Corp 

ZENITH trademark Zemth Co-o T I PROFESSIONAL COMPUTER trademark Te>as Instruments Inc SUPERBRAIN i.ademark Iniertec Co-p CP M trademark D.g,tal Reseeeth EPSON trademark Epson Corp 



OUR SOFTWARE CATALOG 

H & E Computromcs, Inc.. has mailed more than 1 million 
software catalogs since 1978 Send $2 for our new64-page 
catalog today 1 (We also send you our catalog FREE with 
every order) DEALER INQUIRIES WELCOME 



30-DAY MONEY BACK GUARANTEE 

•" ALL PRICES a SPECIFICATIONS SUBJECT TO CHANGE "• 
DELIVERY SUBJECT TO AVAILABILITY 
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50 N PASCACK RO . SPRING VALLEY. NY 10977 



ADD $3 00 FOR SHIPPING IN UPS AREAS 
ADD $4 00 FOR C O D OR NON UPS AREAS 
AOD $5 00 TO CANADA & MEXICO 
ADD PROPER POSTAGE OU'SlOE OF U S 
CANADA ft MEXICO 




HOUR 
24 ORDER 
LINE 

914) 425-1535 

NEW TOLL FREE 

ORDER LINE 
(800) 431-2818 



/ tsiin% 1 cunimuetl 












01100 


; 










01110 




ORG 


BRKCK 






01120 




JP 


PALBRK 






01130 


; 










01140 




ORG 


SCRXIT 






01150 




JP 


EXIT1 






01160 


■ 










01170 


; 










01180 


; 










01190 












I] || 


J 


••* SCRIPSIT Extension 


Code *** 




01210 












11221 




ORG 


6810H 






01230 












01240 


ENTRY 


I,D 


(OLDSP) ,SP 


;SAVE STACK POINTER 




01250 




CALL 


INITF 


(LOAD DRIVER FILE 




01260 




CALL 


BNKONE 


;SET PTRS F/ BANK1 




01271 




CALL 


CLRBNK 


; RESET BANKS 1&2 




01280 




JP 


SCRIPS 


(GOTO SCRIPSIT 




01290 












01300 












01310 












01320 


; 










01330 


INITF 


LD 


A,(HL) 


I GET NXT CMD CHAR 




01340 




CALL 


LUCK 


;END OF LINE ? 




01350 




JR 


NZ, MOVFSP 


;NZ« FIL SPEC 




01360 




LD 


HI,,DEFNAM 


jHL-> *DEFAULT/PDC" 




01370 


MOVFSP 


LD 


DE.FCB 


(DE-> FCB 




01380 




LD 


A.PSPEC 


;SVC 




01390 




RST 


28H 






01400 




JR 


Z, FSPOK 


;Z- FILESPEC OK 




01410 




LD 


HL,BADFIL 


;HL-> *BAD FILE" MSG 




11421 




JP 


LOGERR 


;GOTO LOG ERR & RET 




01430 


; 










01440 


FSPOK 


LD 


HL.PDCTXT 


;HL-> DEFAULT EXTENSK 




01450 




LD 


A.FEXT 


;SVC 




•] l(| 




RST 


28H 


j ADD EXTENSION 




01470 




PUSH 


DE 


;SAVE FCB POINTER 




11481 




CALL 


SAVFSP 


;FSPEC-> HOLD 




11491 




LD 


HL, BANNER 


;HI.-> BANNER MESSAGE 




.n || 




CALL 


DSPMSG 


(OUTPUT SAME 




■] LI 




POP 


HL 






•1521 




PUSH 


HL 


;HL-> FILESPEC 




• 1530 




CALL 


DSPMSG 






,!i ;,> 




LD 


C,0DH 


(C/R 




• 1550 




LD 


A, DSP 






01560 




RST 


28H 






01570 




POP 


DE 


;DE-> FCB 




01580 












01590 


LXTN 


LD 


HL,SCRPBF 


;HL-> DISK I/O BUFFER 




01600 




LD 


B,90 


jLRL-90 




.i). .' 




LD 


A, OPEN 


(SVC 




01620 




RST 


28H 






• 1630 




JP 


NZ,ERR 






01640 




LD 


HI.,CTLTAB 


;HL-> COMMAND TABLE 




,i 1 1 '.. .' 


; 










01660 


RDLOOP 


LD 


B,90 


; 90 BYTES MAX 




01670 




LD 


DE.FCB 


|DB-> FCB 




01680 




LD 


A, GET 


;SVC 




016 9* 




RST 


2 8H 






• 1701 




JR 


NZ.EOP 


(ERROR COULD BE EOF 




11711 




LD 


(HI.) ,A 


1 STORE IN CMD TABLE 




• 172* 




INC 


HL 


rELSl BUMP PTR 




01730 




DJNZ 


RDLOOP 


(LOOP 'TIL EOF 




• 1740 


; 










01750 


EOF 


CP 


1CH 


(ERROR - EOF ? 




• 1760 




PUSH 


AF 


(SAVE ERROR STATUS 




81771 




LD 


A. CLOSE 


(SVC 




■17 M 




RST 


28H 






• 1791 




JR 


NZ,ERR 






,'! .»,< 




POP 


AF 


(GET ORIGINAL ERR 




it i I : 1 




JR 


NZ,ERR 






01820 




RET 




(ELSE RETURN 




01830 


; 










• 1840 


; 










• 1850 


SAVFSP 


LD 


HL,PHLPFS 


;HL-> HOLDING AREA 




• I860 


SAVFSL 


LD 


A,(DE) 


(GET A CHAR 




• 1870 




INC 


DE 






■ 188« 




LD 


(HL) ,A 


(SAVE IT 




• 1891 




INC 


HL 






•I9ff 




CP 


'/' 


(EXT YET? 




11911 




JR 


NZ, SAVFSL 






■ 1920 




LD 


(HL) , '11' 






• 1939 




INC 


HL 






,' 141 




LD 


(HL) , 'L' 






■19SI 




INC 


HL 






• 1960 




LD 


(HL) ,'P' 






11971 




INC 


HL 






• 1980 




LD 


(HL) ,0DH 


;"HI.P" AS EXTENSION 




01990 




RET 




(DONE 






; 










02010 


1 










• 2020 


; 










• 2030 


EOLNCK 


CP 


0DH 


(C/R ? 




12141 




RET 


Z 






• 2050 




CP 


03H 


; ETX 




• 2060 




RET 




(GO BACK W/ STATUS 




,i . | " I 


; 










il.i.'h,' 


; 










02090 


CLRBMK 


LD 


C,l 


; BANK 1 




02100 




CALL 


GETCLR 






• 2110 




LD 


C,2 


(BANK 2 




02120 


GETCI.R 


LD 


B,2 


(BANK AVAIL? 




02130 




PUSH 


BC 


(SAVE # 




02140 




LD 


A , BANK 






• 2150 




RST 


2 8H 


;DO IT 


l.tsting 1 continued 




keys (0-9) used to control video output 
speed. Scrip Aid also bypasses the print- 
er ready test and intercepts the end- 
of-output routine to restore printer out- 
put. It ignores any embedded control 
codes during video output. 

The top-of-form (TOF) and control- 
code routines send characters directly to 
the printer. A single byte value, 0C hex, 
is the standard TOF code. The P,C op- 
tion calls the SVC @HEXDEC, con- 
verting the ASCII decimal input to bi- 
nary for output to the printer. 

Line 5020 is the entry to the printer 
driver routine. After you save this rou- 
tine, ScripAid tests the last byte sent. If 
it's a backslash character (\), ScripAid 
branches to NXTST, where it checks 
the current character. (To type a back- 
slash, hit the standard slash key and the 
clear key at the same time.) 

If the current character is something 
other than a backslash character, Scrip- 
Aid scans the printer control code table. 
If ScripAid finds a match, it outputs the 
appropriate control string from the 
90-byte control code list loaded when 
you called up ScripAid. 

Note that ScripAid sends control 
codes only if the printer (SVC 6) is the 
active output device. This avoids confu- 
sion in the video preview mode. An in- 
valid control code translates to a space 
character for printer output. 

The final portion of the source code 
defines the messages and storage areas 
ScripAid uses. 

Using ScripAid 

As you're writing text, you can em- 
bed ScripAid 's printer codes directly in 
your document to activate your printer's 
special abilities. The Figure shows an 
example of text with printer codes em- 
bedded and of the final product. 

ScripAid has two classes of com- 
mands: the reassigned Scripsit editing 
commands and the enhanced com- 
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• • EVERYTHING FOR YOCIR TRS-80'" • ATARI™ • APPLE™ • PET" • CP/M~ • XEROX™ • IBM™ • OSBORNE™ • • 

* TRStJO is a trademark of the Radio Shack Division of Tandy Cop. * ATARI n a trademark of Alan Inc *APPl£ 14 a trademark of 4ppte Corp ■ * PET is a trademark of Commodore 
* CP M 15 a trademark of Digital Research 'XEROX is a trademark of Xerox Corp. ■ * IBM is a trademark of IBM Corp * OSBORNE is a trademark of Osborne Corp 



BUSINESS PAC 100 




* 30-Doy money 



100 Ready-To-Run 
Business Programs 



(ON CASSETTE OR DISKETTE) Includes 128 Page Users Manual 

Inventory Control Payroll.....Bookkeeping System Stock Calculations. 

Checkbook Maintenance.. ...Accounts Receivable.... .Accounts Payable 



BUSINESS 100 PROGRAM LIST 



NAME DESCRIPTION 

1 RULE78 Interest Apportionment by Rule of the 78s 

?. AMN(J I Annuity computation program 

3 DATE Time between dates 

4 DAYYEAR Day of year a particular date iaHs on 

5 LEASEINT kiterest rate on lease 

6 BREAKEVN Breakeven analysis 

7 DEPRSL StraighUine depreciation 

8 DEPRSY Sum of the digits depreciation 

9 DEPRDB Declining balance depreciation 

1 DEPRDDB Double declining balance depreciation 

1 1 TAXDEP Cash flow vs. depreciation tables 

1 2 CHECK2 Prints NEBS checks along with daily register 

13 CHECKBK1 Checkbook maintenance program 

1 4 MORTGAGE, A Mortgage amortization table 

1 5 MULTMON Computes time needed for money to double, triple. 

1 6 SALVAGE Determines salvage value of an investment 

1 7 RRVARIN Rate of return on investment with variable inflows 
16 RRCOfiST Rate of return on investment with constant inflows 

19 EFFECT Effective interest rate of a loan 

20 FVAL Future value of an investment (compound interest) 

2 1 PVAL Present value of a future amount 

22 LOANPAY Amount of payment on a loan 

23 REGWfTH Equal withdrawals from investment to leave over 

24 SIMPD1SK Simple discount analysis 

25 DATEVAL Equivalent & nonequivalent dated values for oblig. 

26 ANNUDEF Present value of deferred annuities 

27 MARKUP % Markup analysis for items 

28 SINKFUND Sinking fund amortization program 

29 BOMDVAL Value of a bond 

30 DEPLETE Depletion analysis 

3 1 BLACKSH Black Schotes options analysis 

32 STOCVAL I Expected return on stock via discounts dividends 

33 WARVAL Value of a warrant 

34 BONDVAL2 Value of a bond 

35 EPSEST Estimate of future earnings per share for company 

36 BETAALPH Computes alpha and beta variables for stock 

37 SHARPE I Portfolio selection model i.e. what stocks to hold 

38 OPTWRfTE Option writing computations 

39 RTVAL Value of a right 

40 EXPVAL Expected value analysis 

4 1 BAYES Bayesian decisions 

42 VALPRINF Value of perfect information 

43 VALADJNF Value of additional information 

44 UTBJTY Derives utility function 

45 SIMPLEX Linear programming solution by simplex method 
4b TRANS Transportation method for linear programming 

47 EOQ Economic order quantity inven t ory model 

48 QUEUE 1 Single server queueing (waiting line) model 

49 CVP Cost-votume-pr eft analysis 

50 CONDPROF Conditional profit tables 

51 OPTLOSS Opportunity loss tables 

52 FQUOQ Fined quantity economic order quantity model 

53 FQEOWSH As above but with shortages permitted 

54 FQEOQPB As above but with quantity price breaks 

55 QUEUECB Cost benefit waiting line analysis 

56 NCFANAL Net rash flow analysis for simple investment 

57 PROFIND Profitability index of a project 

58 CAP1 Cap. Asset Pr. Model analysis of project 



59 WACC Weighted average cost of capital 

60 COMPBAL True rate on loan with compensating bal required 

61 DISCBAL True rate on discounted loan 

62 MERGANAL Merger analysis computations 

63 FINRAT Financial ratios for a firm 

64 NPV Net present value of project 

65 PRINDLAS Laspeyres price index 

66 PRINDPA Paasche price index 

67 SEASIND Constructs seasonal quantity indices (or company 

68 TTMETR Time series analysis linear trend 

69 T1MEMOV Time series analysis moving average trend 

70 FUPRINF Future price estimation with inflation 

71 MAJLPAC Mailing list system 

72 LETWRT Letter writing system Unks with MAILPAC 

73 SORT3 Sorts list of names 

74 LABEL! Shipping label maker 

75 LABEL2 Name label maker 

76 BUSBUD DOME business bookkeeping system 

77 TTMECLCK Computes weeks total hours from timeclock info 

78 ACCTPAY In memory accounts payable system-storage permitted 

79 INVOICE Generate invoice on screen and print on printer 

80 INVENT2 In memory inventory control system 

81 TELDR Computerized telephone directory 

82 TIMUSAN Time use analysis 

83 ASSIGN Use of assignment algorithm for optimal job assign. 

84 ACCTREC In memory accounts receivable system storage ok 

85 TERMSPAY Compares 3 methods of repayment of loans 

86 PAYNET Computes gross pay required for given net 

87 SELLPR Computes selling price for given after tax amount 

88 ARBCOMP Arbitrage computations 

89 DEPRSF Sinking fund depreciation 

90 UPSZONE Finds UPS zones from zip code 

9 1 ENVELOPE Types envelope including return address 

92 AUTOEXP Automobile expense analysis 

93 INSF1LE Insurance policy file 

94 PAYROLL2 In memory payroll system 

95 DILANAL Dilution analysis 

96 LOANAFFD Loan amount a borrower can afford 

97 RENTPRCH Purchase price for rental property 

98 SALELEAS SaleHeaseback analysis 

99 RRCONVBD Investor's rate of return on convertible bond 
100 PORTVAL9 Stock market portfolio storage-valuation program 



G TRS-80 Cassette Version $99.95 

D TRS-80 (Mod-I or III), Pet, Apple 

or Atari Versions $99.95 

D TRS-80 Mod-I I, IBM, Osborne 

and CP/M Versions $149.95 

ADO S3.00 FOR SHIPPING IN UPS AREAS 

ADO S4.0Q FOR COO. OR NON-UPS AREAS 

ADO S5.00 TO CANADA AND MEXICO 

ADD PROPER POSTAGE OUTSIOE OF US .CANADA ANO MEXICO TO 
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mands I added. You invoke all of the 
reassigned Scripsit commands by first 
hitting the clear key and another key to 
put you in the appropriate editing mode 
(clear-D for delete, clear-I for insert, 
and so on), just as you would with the 
standard program. Then hit clear and 
the relevant command key to actually 
make changes (see Table 1). The reas- 
signed Scripsit commands perform the 
same functions they did in the original 
commercial program, so 1 won't ex- 
plain them here. 
You execute all of my enhanced com- 



mands by hitting the break key and an 
associated character or characters (see 
Table 1). Query (Q), clears the screen 
and then, like all ScripAid commands, 
scans the remainder of the command 
line for additional parameters, such as a 
file extension to be matched or a drive 
specification. Query displays the disk 
name, creation date, and available 
space for all visible, non-system files on 
drive zero as the default. You must spe- 
cify the extension and/or drive number 
that you want matched. To return to 
ScripAid, press any key. 



List inn J 


ontinued 














02160 




POP 


BC 


;GET ♦ 






• 2170 




RET 


NZ 


;NZ-NOT AVAIL 






02181 




I,D 


B,0 


; SELECT BANK 






■ 2190 




LD 


A, BANK 








02200 




RST 


28H 








■ 2210 




PUSH 


BC 


;SAVE OLD BANK 






02220 




LD 


A,8CH 








02230 




LD 


(8000H) ,A 


;INTO BUFFER 






02240 




XOR 


A 








32250 




LD 


(8001H) ,A 


;NO TEXT 






02260 




POP 


BC 


;GET OLD BANK t 






£227? 




LD 


A, BANK 


;§BANK SVC 






02260 




K.ST 


2 8H 








02290 




RET 




;DONE 






02300 














02310 














02320 














02330 


BADFIL 


DEFM 


1 Invalid filespecl ' 






02340 




DEFB 


0DH 








02350 


LIST OFF 










02360 


JADFIL 


DEFM 


'Invalid files 


peel ' 






02370 




DEFB 


0DH 








02380 


•LIST ON 










02390 














02400 














02410 


3SFMSG 


PUSH 


DE 


;SAVE DE 






■ 2420 




LD 


A.DSPLY 


;SVC, DISPLAY MSG 8 (HL) 






02430 




RST 


2 8H 








L'2440 




POP 


3E 








■"2450 




RET 


Z 


;Z« O.K. 






02460 




LD 


L,A 


;L= ERROR CODE 






■ 2470 




LD 


H,00H 








02480 




CR 


0CH 


;SET RETURN BITS 






02490 


SRR 


I.I 


C.A 


;PASS IN "C" 






■ 2500 




LD 


A, ERROR 


;SVC, LOG AN ERROR 






02510 




RST 


28H 








■ 2520 




JR 


DOSXIT 


;RET W/ ERROR 






02530 














02540 














02550 


LOGERR 


1,1) 


A , LOGOT 


;SVC, DISPLAY & LOG MSG 






02560 




RST 


2 8H 








02570 




LD 


HL r 0FFFFH 


;SET ERROR RETURN 






02580 


OOSXIT 


LD 


SP,S-S 


; RESET SP 






02590 


3LDSP 


EQU 


$-2 








02600 




BET 




;GOTO DOS READY 






02610 














02620 














02630 


~CB 


DEFS 


32 


;FCB FOR PDC INPUT 






02640 


DEFNAM 


DEFM 


1 DEFAULT/ ' 








02650 


PDCTXT 


DEFM 


'PDC' 








02660 




DEFB 


0DH 








02670 


•LIST OFF 










026 80 


3EFNAM 


DEFM 


'DEFAULT/' 








026 90 


PDCTXT 


DEFH 


'PDC' 








02700 




DEFB 


0DH 








02710 


•LIST ON 










02720 














02730 


BANNER 


DEFB 


0FH 


; CURSOR OFF 






02740 


» 


DEFB 


1CH 


;HOME CURSOR 






02750 




DEFB 


1FH 


;CLS 






02760 




DEFB 


0CDH 








02770 


t 


DEFM 


'*** ScripAid 


*** (c) 1984 Paladin' 






02780 




DEFM 


' Software' 








02790 




DEFW 


0A0AH 








02800 




DEFW 


0A0AH 








02810 




DEPW 


0A0AH 








02820 


• 


DEFB 


0D4H 








02630 


• 


DEPM 


'Loading driver — > ' 






•2841 


1 


DEFB 


03H 








■ 2850 


•LIST OFF 










■ 2860 


BANNER 


DEFB 


0FH 








02870 




DEFB 


1CH 








02880 




DEFB 


1FH 








02890 




DEFB 


0CDH 








02900 




DEFM 


'*** ScripAid 


*** (c) 1984 Paladin Softw*. 






B29K 




DEFW 


0A0AH 








02920 




DEFW 


0A0AH 








■ 2931 




DEFW 


0A0AH 








■ 2941 




DEFB 


0D4H 


listing I 


continued 



Kill (K) checks for the entry of a valid 
file name, opens the file, then calls the 
@REMOV SVC to kill the file from the 
directory of the specified or default 
drive. Note that you must first open, 
like all ScripAid commands, to remove 
it. When you finish editing text and 
want to preview what it will look like 
when it's printed out, press the clear-P- 
V keys. 

Bank (B), followed by any digit from 
1 to 3, incorporates the specified 32K 
memory bank as the active text buffer. 
Bank 1 is the active bank at power-up 
and has the largest capacity (35K to 39K 
depending on your system configura- 
tion). Banks 2 and 3 each hold about 
32K of text. If a requested bank isn't 
available, a message is displayed. When 
switching banks, the selected video line 
width and paragraph indent are saved 
or restored. 

If you've created your own help file 
(see Program Listing 5), the ScripAid 
Help command (H), followed by K 
(keyboard) or P (printer), calls for the 
appropriate help screen. These are 
stored as ASCII files with a record 
length of 80 bytes. The up- and down- 
arrow keys page forward and backward 
through the help file. You should note 
that the letter H, when not followed by 
another character, calls for the hyphen- 
ation command. 

End Notes 

As with any enhancement program, 
it's necessary to create the enhanced 
commands around the original pro- 
gram. Whenever you do this, however, 
you must make some compromises, and 
ScripAid has two of which you should 
be aware. 

The first problem is that the embed- 
ded printer control codes aren't treated 
as invisible format commands by Scrip- 
sit's formatting routines. Because of 
this, full justification (flush-left and 
-right margins) won't function properly 
with embedded codes. To eliminate this 
problem, you can turn off full justifica- 
tion (J = N) and carefully assemble any 
lines using special functions. 

The second problem concerns text 
that's previewed on the monitor with 
the P,V command. If the text contains 
page number blocks, it's video display is 
marred by momentary flashes of the ed- 
iting screen whenever it calculates a new 
page number. You can avoid this prob- 
lem by leaving out page number blocks 
until you're ready to print the docu- 
ment.! 

You can write to Clifford Knight at 
Box 253, Manomet, MA 02345. 
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Listing 1 continued 












02950 




DEFM 


'Loading driver - 


-> ' 




02960 




DEFB 


03H 






02970 


•LIST ON 








02980 


; 










02990 


ENINIT 


EQU 


S 






03000 


; 










03010 


; 










03020 


; 










03030 


; 


*** sta 


rt of ScripAid *** 




03040 


; 










1 03050 




ORG 


OLDBUF 


STARTS # OLD TEXT BUF 




03060 


; 










03070 


PALBRK 


INC 


HL 


HL-> NEXT CHAR 




03080 




CP 


'Q' 


QUERY? 




03090 




JR 


Z, QUERY 


IF SO 




03100 




CP 


'K' 


KILL ? 




03110 




JP 


Z,KILL 


DO IT 




03120 




CP 


'B' 


BANK? 




I 03130 




JP 


Z, BANKS 


GO TO IT 




03140 




CP 


•H* 


HELP? 




03150 




JR 


NZ, GOODBK 


NZ- NOT "H" 




03160 




LD 


C,A 


ELSE SAVE CHAR 




03170 




LD 


A.(HL) 


GET NEXT CHAR 




03180 




CP 


0DH 


CR? 




03190 




JP 


NZ.HELP 


IF NOT, GET HELP 




03200 




LD 


A,C 


GET ORIG CHAR 




03210 


GOODBK 


LD 


HL,BRKTAB 


HL-> BRK PARMS 




03220 




JP 


RETBRK 


GO BACK 




03230 












03240 


; 










03250 


QUERY 


CALL 


SKPSPL+1 


SKIP SPACES 




03260 




JR 


Z, NO EXT 


Z- CR FOUND 




03270 




CP 


7" 


EXT SPECIFIED? 




03280 




CALL 


Z, MOV EXT 


IF FOUND 




03290 




JR 


Z,USREXT 






03300 


NO EXT 


PUSH 


HL 


SAVE CMDLINE PTR 




03310 




LD 


HL,EXTMSG-1 


HL-> "$$$" 




03320 




CALL 


MOVEXT 


MOVE TO FCB 




03330 




POP 


HL 


GET PTR 




03340 


US R EXT 


LD 


A,(HL) 


GET A CHAR 




03350 




CP 


1 : ' 


DRIVE SPECIFIED? 




03360 




INC 


HL 






03370 




JR 


Z, USRDRV 


IF SO 




033 80 




CP 


0DH 


CR? 




03390 




JR 


NZ,USREXT 


IF NOT EOLN 




03400 




LD 


(HL) ,'B' 


SET DRV 




03410 


USRDRV 


CALL 


CLRVID 


CLEAR VIDEO 




03420 




LD 


A,(HL) 


GET DRIVE t 




03430 




AND 


07H 


0-7 ONLY 




03440 




LD 


C,A 


INTO C 




03450 




LD 


(PARM1) ,A 


SAVE DRIVE * 




03460 




LD 


HL r SCRPBF 


HL-> BUFFER AREA 




03470 




LD 


B,04 


SET GET FREE 




03480 




LD 


A,DODIR 


SDODIR SVC 




03490 




RST 


28H 






03500 




JP 


NZ,DSKERR 






03510 




LD 


HL,DRVMSG 


HL-> "DRIVE:" 




03520 




LD 


A.DSPLY 






03530 




RST 


2 8H 






03540 




LD 


A,(PARM1) 


GET DRIVE 1 




03550 




ADD 


A.30H 


CONV TO ASCII 




03560 




LD 


C.A 






03570 




LD 


A, DSP 






j 03580 




RST 


28H 






03590 




LD 


HL.SAMSG 


HL->*Pack ID: " 




03600 




LD 


A,DSPLY 






03610 




RST 


2 8H 






03620 




LD 


HL.SCRPBF 


HL-> FREE STRING 




03630 




CALL 


EIGHT 


OUTPUT DISK NAME 




03640 




PUSH 


HL 


SAVE DISK INFO PTR 




03650 




LD 


HL.CREMSG 


HL->"Crcated: " 




03660 




LD 


A.DSPLY 






03670 




RST 


2 8H 






03680 




POP 


HL 


GET INFO PTR 




03690 




CALL 


EIGHT 


OUTPUT CREATION DATE 




03700 




PUSH 


HL 


SAVE INFO PTR 




03710 




LD 


l!L,FREMSG 


HL-> "Free:" 




03720 




LD 


A.DSPLY 






03730 




RST 


28H 






! 03740 




POP 


HL 






03750 




LD 


E,(HL) 


LSB TOTAL SPACE 




03760 




INC 


HL 






03770 




LD 


D, (HL) 


MSB TOTAL 




03780 




INC 


HL 


HL-> LSB FREE 




03790 




LD 


A, (HL) 


GET LSB 




03800 




INC 


HL 






03810 




LD 


H, (HL) 


GET MSB 




1 03820 




LD 


L,A 


HL= FREE SPACE 




03830 




PUSH 


DE 


SAVE TOTAL 




03840 




CALL 


KOUT 


OUTPUT FREESP 




03850 




LO 


c, •/• 






03 860 




LD 


A. DSP 






03870 




RST 


28H 






03 880 




POP 


DE 


GET TOTAL 




03890 




EX 


DE.HL 






03900 




CALL 


KOUT 






03910 




LD 


HL.BLKLIN 


HL-> 0A0DH 




03920 




LD 


A.DSPLY 






' 03930 




RST 


28H 






03940 




LD 


A.(PARMl) 


GET DRIVE t 




03950 




LD 


C,A 


INTO C 




03960 




LD 


B,2 


SET DIR F/ "EXT'(HL) 




1 03 970 




LD 


HL.EXTBUF 


HL-> EXTENSION TO MATCH 




03 980 




LD 


A.DODIR 






03990 




RST 


28H 


DIR TO VIDEO 

Listing 


continued 



Computer 



Tutor 




VIDEO INSTRUCTION 

TAPES! 

STEP BY STEP 

INSTRUCTIONS 

USE YOUR VCR SIDE BY SIDE 
WITH YOUR COMPUTER TO 
LEARN HOW TO PROGRAM. AND 
HOW TO USE PROGRAMS. YOUR 
VCR ALONG WITH YOUR COM- 
PUTER SERVE AS YOUR PERSONAL 
TUTOR. PAUSE YOUR VCR TO RE- 
VIEW AND LEARN AT YOUR OWN 
PACE. 

CAT# TOPIC APPRO* PRICE 

TAPES FOR THE TRS80 MOOEL 1. 3. 4. 



00S-1 


1HSD0S l 3 


90 MlN 


S399S 


DOS-6 


TRSDOS 6 


105MIN 


S39.9S 


00S-3 


NFWOOS80 


105MIN 


S39.9& 


OOS-2 


DORPIUS 3 5 


105 MlN 


$39.95 


DOS-5 


LDOS 


105MIN 


$3995 


DOS-7 


CPW 2 2 

MONTEZUMA 


105 MlN 


$3995 


DOS-4 


MUITIOOS 


1 05 MlN 


$39 95 


EW-t 


VISICALC 


90 MiN 


$39 95 


EW-7 


MUlTiPLAN 


9C MIN 


$39 95 


WP-t 


„A.7y WRITER 


105 MlN 


$3995 


WP-2 


SUPERSCRIPT 


'05 MiN 


$39 95 


•.VP-3 


SCRIPTS T 


9C •y\ 


$39 95 


.VP-4 


Nf A'SCRI?' 


'35M'\ 


$3995 


DB-< 


PROf'lE I' °IJ 


5i:5V'N 


$3995 


DB-2 


P^SFiuE 


9C '.*"'« 


$39 95 


DlO-3 


TRSDOS 1 3 
OISk i 


*05MI\ 


$39 95 


DlO-4 


TRSOOS 6 
DISK 1 


105 MiN 


$39 95 


BP-1 


LEARNING MOD180MIN 


$49 95 




34 BASIC 






BP-2 


LEARNING M00 180MIN 


$49.95 




ONE BASIC 






TC-1 


MTFRM 


45 MIN 


$2995 


UT-1 


DOTWRITER 


75 M!N 


$2995 




VHSor 


BETA 




FORMAT 





Add $3.00 per order for 

shipping and handling. 

Add $3.00 for CO. D. 



TO ORDER PHONE or WRITE 

LYNN COMPUTER SERVICE 

6831 West 157th Street 
Tinley Park. Illinois 60477 

1312)429-1915 *-H5 



►* See List ol Advertisers on Page 145 
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Debug Programs Faster! 

DPIT (for Debugging Programs by In- 
terpretive Tracing) is a sophisticated 
tool with which you can explore and 
debug machine language programs. 
In the COMMAND mode, it will step 
through machine language pro- 
grams one instruction at a time or 
a block of instructions, showing you 
the address, hexadecimal value, 
Zilog mnemonic, referenced regis- 
ters contents and referenced RAM 
contents for each instruction. The 8 
different COMMAND mode com- 
mands include load a program from 
disk, output to line printer or video 
display and define up to 15 different 
trace limits in RAM. The 19 com- 
mands in the DEBUG mode include 
block move, execute a CALL or RST, 
fill memory, find bytes, jump to ad- 
dress, memory modification in Hex 
or ASCII and modify flags or regis- 
ters. DPIT Includes a comprehensive 
manual available only on disk. 
DPIT $32.95 

ORDERING: Specify Model 1, 3, or 
4. Include $2.50 for postage and han- 
dling. Maryland residents add 5% 
sales tax. 

McSystems Software _,,,, 
P.O. Box 44313 
Washington, DC 20026-4313 



LARGE CAPACITY 

ACCOUNTING PROGRAMS 

OR r RS 80 ' 14S4PLNW I OBC 



JUL NEED JUST 2 DRIVES }C 

FOR CAPACITY BELOW 

ACCTS RECEIVABLE $1 50 00 

500O+ ACCOUNTS I 5000* TRANSACTIONS 
BALANCE FORWARD 99 TRANSACT CODES 
.30 60 90- I20AGEDSTATFMENTSSHOW 

DATE / INV» /' DE SCRIP/ AMT/4 AGEING 
SELECTIVE FINANCE CHARGES* RATES 
FAST ENTRY POSTING W AUDIT REPORT 
SUB ACCTS * CREDIT I .MIT DATE OF 
LAST PAYMENT LABELS 
ADD $50 00 FOR INVOICING MODULE 
OTHER OPTIONS AVAILABLE CALL 



ACCTS PAYABLE $50.00 

DERIVtU FROM OUR A.R WRITESCHECKS 



GENERAL LEDGER $1 50.00 

40O+ ACCTS 5000+TRANSACTIONS/MONTH 
BEST LOOKING FINANCIAL STATEMENTS 
DEPARTMENTAL P & L (UP TO 9) 
STATEMENT OF CHANGES 
SUB- TOTALS WHERE YOU WANT 
FAST FLEXIBLE POSTING INPUT 
PERCENTAGE P » L 



DEMO AVAILABLE $20 00 EACH 
APPLIES TOWARDS PURCHASE 



COMBINATION SPECIALS 

ml A. R 4 G L FOR S2O000 

• 2 A/R. A/P » G/L FOR $22500 

HARD DISK VERSION SLIGHTLY MORE 




Listing 1 continued 












04000 




JR 


NZ, DSKERR 






04010 




CALL 


BOTLIN | 


CURSOR TO LINE 23 




04020 




LD 


HL,VDMSC J 


HL-> "CONTINUE?* 




04030 




LD 


A,DSPLY 






04040 




RST 


28H 






04050 


; 










04060 


; 










04070 


; 










040 80 


WAITBK 


LD 


A, KEY | 


GKEY SVC 




04090 




RST 


28H 






04100 


GOBACK 


I,D 


C,0FH l 


CURSOR OFF 




04110 




LD 


A, DSP 






04120 




RST 


28H 






04130 




CALL 


CLRVID | 


CLEAR SCREEN 




04140 




JP 


SCRPIN 


BACK TO SCRIPSIT 




04150 


; 










04160 


j 










04170 


KILL 


CALL 


SKPSPL+1 


SKIP SPACES 




04180 




JR 


Z,GOERR 


IF SO 




04190 




LD 


DE.FCB1 


DE-> F'CB 




04200 




LD 


A.FSPEC 


8FSPEC 




04210 




RST 


2 8H 






04220 




JR 


NZ, DSKERR 






04230 




LD 


B,0 


LRL-256 




04240 




LD 


A. OPEN 


gOPEN TO KILL 




04250 




RST 


2 8H 






04260 




JR 


NZ, DSKERR 






04270 




LD 


A , REMOV 


§REM0V 




04280 




RST 


2 8H 






04290 




JR 


NZ, DSKERR 






04300 




JR 


GOBACK 






04310 


• 










04320 


f 










04330 


GO ERR 


LD 


C0FH 


CURSOR OFF 




04340 




LD 


A, DSP 






04350 




RST 


2 8H 






04360 




JP 


ERRINV 


INVALID CMD 




04370 












04380 












04390 












04400 


DSKERR 


cs 


0C0H 


SET RET t MSG 




04410 




LD 


C,A 


ERROR -> C 




04420 




PUSH 


3C 


SAVE ERROR 




04430 




CALL 


BOTLIN 


POSITION CURSOR 




04440 




POP 


BC 


GET ERROR 




04450 




LD 


A , ERROR 


8ERROR SVC 




04460 




RST 


2 8H 






04470 




JR 


WAITBK 






04480 


; 










04490 


; 










04500 


TOP 


POP 


HL 


FIX STACK 




04510 




LD 


C,0CH 


ASCII FORM FEED 




04520 




LD 


A,PRT 


9PRT SVC 




04530 




RST 


2 8H 






04540 




JR 


GOBACK 


BACK TO SCRIPSIT 




04550 


; 










04560 


CONTRL 


POP 


AF 


FIX STACK 




04570 




INC 


HL 


HL-> NEXT CHAR 




04 5 80 


CTLP1 


CALL 


SKPSPL+1 


SKIP SPACES 




04590 




JP 


Z, GOBACK f 


IF END 




04600 




CP 


' i ' t 


DELIMITER ? 




04610 




JR 


NZ,C0NT1 






04620 




INC 


HL » 


ELSE BUMP PAST 




04630 


CONT1 


LD 


A,DECHEX f 


gDECHEX SVC 




04640 




RST 


28H 






04650 




LD 


A.PRT 






04660 




RST 


2 8H 






04670 




JR 


CTLP1 | 


LOOP 




04680 


; 










04690 


VIDEO 


LD 


A.02H f 


0DSP SVC 




04700 




LD 


(OUTSVC) ,A | 


SET VIDEO SVC 




04710 




LD 


A,0EFH i 


RST 2 8H OPCODE 




04720 




LD 


(PASRST) ,A | 


INTO 9DELAY CALL 




04730 




LD 


HL,0C9AFH ; 


XOR A h RET OPCODES 




04740 




LD 


(PRTCHK) ,HL | 


INTO CHECK ROUT 




04750 




LD 


HL,VDWAIT | 


HL-> END WAIT ROUT 




04760 




LD 


(PREND) ,HL ; 


INTO SCRIPSIT VECTOR 




04770 




LD 


A.0CDH J 


CALL OPCODE 




04780 




LD 


(KSCAN) ,A | 


INTO SCRIPSIT 




04790 




LD 


HL,DLYCK 


HL-> DELAY CK ROUT 




04800 




LD 


(KSCAN+1) ,HL 


INTO SCRIPSIT 




04810 




CALL 


BOTLIN 






04820 




OR 


A 


RESET CARRY FLAG 




04830 




RET 




GO BACK & OUTPUT 




04840 












04850 












04860 












04870 


PRTCNT 


LD 


A, 0611 | 


3PRT SVC 




04880 




LD 


(OUTSVC) ,A 


STORE IT 




04890 




LD 


HL,0D5C5H 


PUSH BC & PUSH DE 




04900 




LD 


(PRTCHK) ,HL 


STORE THEM 




04910 




LD 


HL.DOUT 


HL-> FORMAT OUT ROUT 




04920 




LD 


(PREND) ,HL 


RESET VECTOR 




04930 




LD 


A.28H 


JR Z OPCODE 




04940 




I.D 


(KSCAN) ,A 






04950 




LD 


HL,0AF02H 


JR 2 BYTES, XOR A 




04960 




LD 


(KSCAN+1) ,HL 


RESET JUMP 




04970 




XOR 


A 


NOP OPCODE 




04980 




LD 


(PASRST) .A 


INTO gDELAY CALL 




04990 




RET 




GO BACK 




05000 


] 










05010 


; 










05020 


PRTOUT 


PUSH 


HL 






05030 




PUSH 


DE 


SAVE CURRENT CHAR 




05040 




PUSH 


AF 


SAVE ACCUM 




05050 




PUSH 


BC 














/ Lstmg 


1 continued 
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•SMI 


LD 


A.S-S | 


GET PREV CHAR 






8 5878 PRVCHR 


EQU 


$-1 








85888 


CP 


■V I 


■\-7 






65890 


LD 


A,C | 


GET CURRENT CHAR 






05100 


JR 


Z, NXTST | 


IP PREVIOUS- "\" 






05110 SAVPRV 


CP 


■V 








05120 


LD 


(PRVCHR) ,A 


SAVE AS PREVIOUS 






05130 


JR 


Z, PRTXIT | 


IF CURR='\", NO ACT 






05140 NOSET 


LD 


BC.0301H | 


DELAY COUNT 






05150 


LD 


A, PADS E 


8 PAUSE SVC 






05160 PASRST 


NOP 




INIT IN 'PRINT* 






05170 


POP 


BC 


GET CHAR 






85180 


PUSH 


BC 


SAVE AGAIN 






05198 


LD 


A,PRT 


@PRT SVC 






05200 OUTSVC 


EQU 


$-1 








85218 


RST 


28H 








05220 PRTXIT 


POP 


BC 








85238 SKPOUT 


POP 


AP 


RESTORE AC CUM 






85240 


POP 


DE 


GET DE 






05250 


POP 


HL 








85260 


RET 




DONE 






05270 ; 












05280 ; 












05290 NXTST 


CP 


■v 


2nd *\"? 






05300 


JR 


NZ .CTLCK 


IF SO 






05310 SAVSPC 


LD 


A,20H 


■ ■ 






05320 


JR 


SAVPRV 


SAVE AS PREV 






05330 ; 












05340 ; 












05350 CTLCK 


LD 


A, (OUTSVC) 


GET OUTPUT SVC 






85360 


CP 


0211 


eosp? 






05370 


POP 


BC 


GET CURRENT CHAR 






05380 


JR 


NZ,CTLCN1 


NZ-gPRT 






05390 


LD 


A.20H 


ASCII SPACE 






05400 


LD 


(PRVCHR) ,A 


SAVE AS PREVIOUS 






05410 


JR 


SKPOUT 


SKIP OUTPUT 






05420 ; 












05430 ; 












05440 ; 












05450 CTLCN1 


LD 


HL,CTLTAB 


HL-> CTL STRINGS 






05460 


LD 


DE,LOOKTB 


DE-> LOOKUP TABLE 






05470 


LD 


B.18 


18 CODES 






05480 LOOKLP 


LD 


A, (DE) 


GET ONE 






05490 


INC 


DE 


?DE~> NEXT CODE 






05500 


CP 


C 


•MATCH? 






05510 


JR 


ZrCTLFND 


;IF SO 






05520 


INC 


HL 








05530 


INC 


HL 








05540 


INC 


HL 








05550 


INC 


HL 


j 5 BYTES/ ENTRY 






05560 


INC 


HL 


jHL-> NEXT CTL STRS 






05570 


DJNZ 


LOOKLP 


;LOOP 






05580 


LD 


C.20H 


;ELSE PASS A SPACE 






05590 CHRNUL 


PUSH 


BC 


;SAVE AS CURRENT 






05600 


JR 


SAVSPC 


;GO DO IT 






05610 ; 












05620 CTI.FND 


LD 


B,05H 


j 5 BYTES/CTL $ 






05630 CTLOOP 


LD 


C,(HL) 


;GET ONE 






05640 


INC 


HL 


?HL-> NEXT 


1 




05650 


INC 


C 




J 




05660 


JR 


Z, CTLDON 


;Z» END OF CTLS 


J 




05670 


DEC 


C 


; RESTORE 






05680 


LD 


A.PRT 


j?PRT SVC 






05690 


RST 


28H 








05700 


DJNZ 


CTLOOP 


;LOOP 






05710 ; 








1 




05720 CTLDON 


XOR 


A 


(CLEAR ACCUM 


J 




05730 


LD 


C,A 


;SET A NULL 


J 




05740 


JR 


CHRNUL 


; OUTPUT NULL, SAVE " * 


I 




05750 ; 








■ 




05760 ; 












05770 DLYCK 


JR 


NZ,CKCN1 


j IF NOT <SFTXCLR> 






05780 


CALL 


PRTCNT 


j RESET *PR OUTPUT 






05790 


LD 


HL,PRRETN 


;HL-> CONT ROUT 






• 5801 


I,D 


(RETVEC) ,HL 


;INTO RET VECTOR 






05810 


JP 


PRCLN 


f CONTINUE 






05820 ; 












05830 CKCN1 


CP 


■ gi 


; PAUSE ? 






05840 


JR 


NZ,CKCN2 


;IF NOT 






• 5850 


PUSH 


□E 


j SAVE TEXT PTR 






• 5860 


LD 


A. KEY 


;«KEY SVC 






05678 


RST 


2 8H 


;KAIT 






05680 


POP 


DE 








05690 CKCS2 


SUB 


30H 


; CONVERT TO DEC 






05900 


JR 


C, NOTNUM 








05910 


CP 


0AH 


;>*9"? 






• 5920 


JR 


NC, NOTNUM 








05930 


LD 


(NOSET+2) ,A 


sINTO CODE ABOVE 






05940 NOTNUM 


XOR 


A 








03950 


RET 










05960 ; 












05970 ; 












05 980 CLRVID 


PUSH 


HL 








05990 


LD 


HL,CLRMSG 


;HL-> CLS STRING 






06000 


LD 


A,DSPLY 








06010 


RST 


28H 








06020 


POP 


HL 








060 30 


RET 




;DONE 


I 




06040 ; 








1 




06050 ; 








1 




06060 ; 








1 




06870 VDWAIT 


CALL 


DOUT 


;DO OUTPUT 


1 




06080 


PUSH 


DE 




1 




06090 


PUSH 


HL 


;SAVE REGS 


1 




16111 


CALL 


BOTLIN 


;POS'N CURSOR 

Listing 1 
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FOftTR8-*0MODELS1,3*4 
IBM PC, XT, AND COMPAQ 

WHICH ONE? 

Which microcomputer word 
processor lets you create and 
edit without retyping, but won't 
slow down your creative process? 
Knows when to capitalize the 
first letter while replacing one 
phrase with another? Can out- 
dent as weii as indent? Will do 
type sett ing at your command, 
even with proportional charac- 
ters, right justification and 
tabbed columns? Lets you use 
the same (extra-capacity) data 
disks on IBM PC and TRS-80? 
And eases your learning with 
common-sense keystrokes. 
Help menus, good examples 
and a professionally authored 
manual? 

Hint: it can integrate to com- 
municate from home to office, 
and will interface with a data- 
base for form letters, data 
tables, and more! 

If s the professional's wool 
processor for your IBM PC, 

Compaq , or TRS-80 Model 1 , $ 
or4: ■ I 

FORTHWRITE 

in 




See List ot Advertisets on Page 145 



FORTH 



With an unusually powerful set 
of tools and an unusually easy 
way of helping you to use them. 

All necessary software 
(FORTHWRITE and the 
MMSFOHTH System), under 
Personal License for $425 (IBM 
PC). Or with FORTHCOM tele- 
com munications module and 
the DATAHANOLER-PLUS files 
management system, for $550 
complete. Corporate Site (mul- 
tiple users) License is available. 

May we tell you more? 

DULLER MICROCOMPUTER SERVICES 
•1 Lafc* Shot* RMd, Nttick, MA 017S0 
(S17)CSS41M 

►-137 
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TRS-80 1, 2, 3, 4, 12, 16 
CPM XENIX 



Multiple Regression 

Stepwise 

Ridge 

All Subsets 

Backward Elimination 
Time Series Analysis 
Descriptive Statistics 
Transformations 



" Survey Research 
" Nonparametncs 

* XV Plots 
' ANOVA 

* Random Samples 

* Data Base 

* Search & Sort 

' Hypothesis tests 



Please call TOLL FREE 
1-800-334-0854 (Ext. 814) 




for more information 

or write 

Quant Systems ^194 

Box 628 

Charleston, SC 29402 

VISA-M/C Accepted 



Tax 
Preparers 

TaxStar 



* 



For Model 3 or 4 with 46K and 2 disk drives 

• Will do schedules 1040. A, B. C. D. 
E. SE. G. W. 6251 

• Tax calculations • tables, rates, 
income averaging 

• Uses IRS prescribed computer 
generated printouts or overlays 
User friendly 

• Automatically calculates excess 
PICA earned income credit, alter- 
nate minimum tax 

• Change one figure, program re- 
calculates entire tax return in 12 
seconds 

'279.95 with user manual 

Professional Tax Software, Inc. 

26 Lark Lane 

Croton On Hudson. N.Y. 10520 

(914)-271-4723 



Listing 


continued 

06110 




EI 










06120 




LD 


HL,VDMSG ; 


HL-> HIT RET 70 CONT 






06130 




LD 


A.DSPLY 








06140 




RST 


2 8H 








06150 




LD 


A, KEY ; 


SKEY 






06160 




RST 


28H 








06170 




LD 


C,0FH » 


CURSOR OFF 






06180 




LD 


A, DSP t 


pDSP SVC 






06190 




RST 


28H 








06200 




POP 


HL 








06210 




POP 


DE 








06220 




JP 


PRTCNT 








06230 ; 














06240 ; 














06250 EIGHT 


LD 


B, 8 ; 


8 BYTES 






06260 E1LOOP 


LD 


C,(HL) | 


GET A BYTE 






06270 




LD 


A, DSP 








06280 




RST 


28H 








06290 




INC 


HL ; 


HL-> NEXT BYTE 






06300 




DJNZ 


EILOOP 








06310 




RET 










06320 ; 














06330 ; 














06340 KOUT 


LD 


DE,SCRPBF 


DE-> BUFFER 






06350 




PUSH 


DE | 


SAVE BUFFER START 






06360 




LD 


A,HEXDEC 








06370 




RST 


28H 








06360 




POP 


HL ; 


HL-> BUFFER 






06390 




LD 


B,5 








06400 




CALL 


EILOOP | 


OUTPUT 5 BYTES 






06 410 




LD 


C,'K' 








06420 




LD 


A, DSP 








06430 




RST 


2 8H 








06440 




RET 


;DONE 






064S0 , 














06460 , 














06470 HOVEXT 


PUSH 


AF | 


SAVE CHAR 






064S0 




LD 


B,3 ; 


3 CHARS/ EXT 






06490 




LD 


DE,EXTBUF » 


DE-> EXT BUFFER 






06S00 EXTlP 


INC 


HL t 


BUMP PTR 






06510 




LD 


A,(HL) | 


GET A CHDLINE CHAP 






06520 




CP 


'0' 








06530 




JR 


CFILLUP t 


C= <"0" 






06540 




CP 


'9'+l 








06550 




JR 


C, OKEXT l 


C- -o--"9- 






06560 




AND 


5FH | 


FOLD -> U/C 






06570 




CP 


'A* 








06580 




JR 


CFILLUP > 


C- >"9", <"A" 






06590 




CP 


'Z'+l 








06600 




JR 


NC, FILLUP » 


NC- >"Z" 






06610 OKEXT 


LD 


(DE) ,A } 


INTO BUFFER 






06620 




INC 


DE t 


BUMP PTR 






06630 




DJNZ 


EXTLP t 


LOOP 






06640 




POP 


AF 








06650 




RET 










06660 














06670 FILLUP 


LD 


A f '$' )WCC 






06680 




DEC 


HL ; 


BACKUP PTR 






06690 




JR 


OKEXT 








06700 














06710 














06720 














06730 














06740 1 


JOTLIN 


LD 


HL.1700H | 


LINE 23, COL 






06750 




LD 


B,03H ; 


SET CURSOR OP 






06760 




LD 


A,VDCTL ; 


0VDCTL SVC 






06770 




RST 


28H 








067 80 




LD 


C,1EH l 


CLEAR TO END OF LINE 






067 90 




LD 


A, DSP j 


#DSP SVC 






06800 




RST 


28H 








06 810 




RET 










06 820 














068J0 














06840 ( 


:kparm 


PUSH 


DE J 


SAVE CUD LINE PTR 






06 850 




CALL 


PRPMCK 


LOOK F/ ,P ,1 ETC 






06 860 




POP 


HL 


HL-> CMD LINE 






06 870 




RET 


NC 


NC= PARK FOUND 






06 880 




LD 


A,(HL) 


ELSE GET NEXT CHAP. 






06 690 




CP 


•V 


VIDEO ? 






06 900 




JP 


Z, VIDEO 


IF SO 






06 910 




CP 


• T , 


TOP OF FORM ? 






06 920 




JP 


Z.TOP 








06930 




CP 


i c i 


CONTROL CODES? 






06 940 




JP 


Z , CONTRL 








06950 




SCF 




ELSE SET CARRY 






06960 




RET 


;DONE 






06 970 














06980 














06990 


HELP 


CALL 


SKPSPC 


SKIP SPACES 






07000 




SUB 


■ pi 


PRINTER HELP? 






07010 




LD 


HL,HLPFS 


HL-> REG HELPFS 






07020 




LD 


A, 11 


12 PAGES IN MAIN HELP 






07030 




JR 


NZ, GETHLP 


NZ= NOT *PR HELP 






07040 




LD 


HL,PHLPFS 


HL-> PRINTER FS 






07050 




XOR 


A 


MAX PAGE=0 






07060 


GETHLP 


LD 


(MAXPAG) ,A 


SAVE MAX PAGE t 






07070 




LD 


DE.FCB1 


DE-> FCB 






07080 




LD 


A,FSPEC 


SFSPEC 






07090 




RST 


28H 








07100 




JP 


NZ.DSKERR 








07110 




LD 


A, OPEN 


#OPEN 






07120 




LD 


B,80 


80 BYTE LRL 






07130 




LD 


HL,SCRPBF 


HL-> BUFFER 






07140 




RST 


28H 








07150 




JP 


NZ,DSKERR 








07160 


PAGE0 


XOR 


A 


CURRENT PAGE = 

Listing 


1 continued 
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Listing 1 


•imttnueit 












07170 


SAVPAG 


LD 


(PARM1) ,A 


jSAVE CURR PAGE • 




07180 




CALL 


DSPPAG 


•OUTPUT A PAGE 




07190 




JP 


NZ,DSKERR 






07200 




CALL 


BOTLIN 


; CURSOR 8 LINE 23 




•7210 




LD 


HL,HLPHSG 






07220 




LD 


A,DSPLY 


; ?DS PLY 




07230 




RST 


28H 






07240 


HLPLP 


LD 


A. KEY 


7 0KEY 




07250 




RST 


28H 






87260 




CP 


BAH 


,-DOWN ARROW 




07250 




RST 


28H 






07260 




CP 


BAH 


;DOWN ARROW 




•7270 




JR 


2 , NXTPAG 






07280 




CP 


0BH 


;UP ARROW ? 




■ 7291 




JR 


Z, PRVPAG 






• 7300 




CP 


80 H 






• 7311 




JR 


NZ, HLPLP 


;LOOP IF NOT 




07320 




LD 


DE,FCB1 






• 7339 




LD 


A, CLOSE 






• 7341 




RST 


28H 






■ 7351 




JP 


NZ,DSKERR 






• 7360 




JP 


GOBACK 






07390 


1 










07400 


PRVPAG 


LD 


A.(PARMl) 


;GET CURR PAGE t 




07410 




OR 


A 


;TEST IT 




07420 




JR 


NZ, DECPAG 


;NZ, CURRO0 




0743* 




LD 


A. (NAXPAG) 


;ELSE GET LAST t 




• 7440 




INC 


A 






07450 


DECPAG 


DEC 


A 






07460 




JR 


SAVPAG 


;GO TOIT 




07470 


I 










07480 


NXTPAG 


LD 


HL,KAXPAG 


;HL-> MAXPAGE t 




07 490 




LD 


A. (PARMl) 


;A= CURR t 




•75M 




CP 


(HL) 


;TEST 




07510 




JR 


Z , PAGE0 


;IF AT MAX 




07520 




INC 


A 


;ELSE BUMP t 




07530 




J 3 


SAVPAG 


;DO IT 




07540 


; 










07550 


DSP PAG 


SLA 


A 






07560 




SLA 


A 


;A» PAGE*4 




07570 




LD 


C,A 


;SAVE IT 




07580 




SLA 


A 






07 5 90 




SLA 


A 


;A= PAGE*16 




07600 




ADD 


A,C 


;A- PAGE*2fl 




07610 




LD 


C,A 


;INTO C 




• 7620 




LD 


B.00H 


;BC- REC 1 




07630 




LD 


DE.FCB1 


;DE-> FCB 




0764« 




LD 


A.POSN 


;0POSN SVC 




• 765« 




RST 


28H 






07660 




RET 


NZ 






07670 




CALL 


CLRVID 






07680 




LD 


B,20 


;20 LINES/PAGE 




07690 


PAG LP 


PUSH 


BC 


;SAVE LINE COUNT 




07700 




LD 


DE,FCB1 






07710 




LD 


A, READ 


; 0READ 




07720 




LD 


HL.LINBUF 


; 80 CHAR BUFFER 




07730 




PUSH 


HL 


;SAVE IT 




• 7740 




RST 


28H 






07750 




POP 


HL 


;HL-> LINE START 




07760 




LD 


A.0DK 


;C/R 




07770 




LD 


(LINBUF+79) ,A 


;FLAG END OF LINE 




07 7 80 




LD 


A.DSPLY 


; PDSPLY 




C77 90 




RST 


28H 






07800 




POP 


BC 


;GET COUNT 




07810 




DJNZ 


PACLP 






07 820 




RET 




;ELSE DONE 




07830 












07 840 












07850 


BANKS 


CALL 


SKPSPL+1 


;GET NEXT t SKIP * • 




07 86 




SUB 


31H 


; CONVERT TO BINARY 




07B/0 




JR 


C.BNKERR 






07880 




CP 


03H 


;>"2"? 




07 890 




JR 


NC,BNKERR 






07900 




LD 


C,A 


;GET BANK t IN C 




07910 




PUSH 


BC 


;SAVE IT 




07920 




LD 


B,02 


;BANK AVAIL? 




07930 




LD 


A, BANK 


;0BANK SVC 




07940 




RST 


28H 






07 950 




POP 


BC 


(FIX STACK/GET BANK! 




07960 




JR 


NZ,BNKERR 


;IF ERROR 




079/0 




PUSH 


BC 


;SAVE IT 




07 980 


j 










07990 




LD 


HL, CSRET 


;HL-> RET ADDR 




08000 




PUSH 


11 L 


;SET SAME 




08010 




LD 


A.1BH 


; <SHFT>-.UP> 




80 20 




JP 


3 9BEH 


;GO DO IT 




08030 


1 










08040 


CSRET 


LD 


(5ECCH) ,DE 


;SAVE CURRENT LOC 




08050 




CALL 


BNK23 


;SET PTRS 




08060 




POP 


BC 


;GET BASK 1 




807 




LD 


A.C 


;ISTO A 




80 80 




PUSH 


BC 


;SAVE AGAIN 




60 90 




OH 


A 


;TEST IT 




08100 




CALL 


Z,BNKONE 


,-IF Z, SPECIAL RESET 




08110 




LD 


A, (CURBNK) 


;GET CURRENT BANK 




06120 




CALL 


FNDBKK 


;HL-> STRG AREA 




08130 


SVBNKL 


LD 


E, (IX+0) 






08140 




LD 


D, (IX+1) 


;DE-> ADDR TO MOVE 




08150 




CALL 


MOVPTR 


rHOVE IT 




816 




DJNZ 


SVBNKL 


;LOOP 




08170 




POP 


BC 


;GET REQUESTED BANK* 




8180 




PUSH 


BC 


;SAVE AGAIN 




08190 




LD 


11,0 


;SET SELECT FUNCTION 




08200 




LD 


A, BANK 


;PBANK SVC 




08210 




RST 


2BH 


;SET NEW BANK 




82 20 




LD 


1!,1 


j RESET "OLD" BANK 
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REMS0FT, INC. 



THE LIVING TRS-80 

For Those Who MUST Know More! 

Finally. REMsott has responded to those 
who have asked tor a beginning level tutorial 
This course was designed by J. Thomas 
Evans. Jr . for the person who is just starting 
to explore the wonderful world fo TRS-80 
computing The learning objectives the 
course was designed to provide: 

• Skills in the use of BASIC and its editing 
capabilities. 

• A fundamental understanding of the 
operation of the Z80 processor within the 
TRS-80. 

• An entry-level knowledge of assembly 
language with some skill in the use of 
an editor-assembler. 

• An understanding of the choices 
available in the selection of hardware 
and software as well as an appreciation 
for the methods of applying the 
computer to specific tasks. 

• A good understanding of the types and 
availability of other resources which can 
provide greater levels of knowledge and 
skill 

Requires 32K and one disk drive. Available 
for Model lit and Model 4 i in Model ill model 



LIVING TRS (disk) 



S79.95 



Let Your TRS-80® 

Teach You 

ASSEMBLY LANGUAGE 

Tired of buying book after book on assembly 
language programming and still not knowing 
your POP from your PUSH? 

REMS0FT proudly announces a more 
efficient way. using your own TRS-80' to 
learn the fundamentals of assembly language 
programming at YOUR pace and YOUR 
convenience 

Our unique package. INTRODUCTION TO 
TRS-80" ASSEMBLY PROGRAMMING will 
provide you with the following" 

• Ten 40 minute lessons on audio 
cassettes 

• A driver program to make your TRS-80' 
video monitor serve as a blackboard for 
the instructor 

• A display program for each lesson to 
provide illustration and reinforcement for 
what you are hearing. 

• Step-by-step dissection of complete and 
useful routines to test memory and to 
gain direct control over the keyboard, 
video monitor, and printer. 

• How to access and use powerful routines 
in your Level II or Model III Basic ROM 

AVAILABLE FOR I, III and 4 (in MOD III Mode) 
REMASSEM (tape) $74.95 

REMASSEM (disk) $79.95 

T "'S coi/se »dS ae«e ; uaec dies -eco'cec t. ,,oseu* I 'A' 15 
3-c a'e rusec or ir-e sbsxessij ••e'es ;•• :;_«e^ itr ^d- 
".Auqr- ar Mela T eci"ooij'ei Crfccaiior '"e °ac.'. S*di* 
GSnpglti Centei and otne' locations m Northern Ofio 

REMsoft. INC. -129 

571 E 185 St. 

Euclid. Ohio 44119 
(216)531-1338 



SHIPPING CHARGES 

S? f)0 WITHIN UNITED STATtS 

55 00 CANADA AND MEXICO 

OTHfcH FOREIGN ORDERS ADO ?0% 

OHIO RESIDENTS AM 6 '•'.■% SALES TAX 

TRS-80' IS A TRADEMARK Of TANDY CORP 



►- S»« List ol Advertisers on Page 145 
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DISK N DATA 

EDUCATIONAL SOFTWARE AND DISKS 



QYMPnM BULK DISKETTE 

O I I lWVylVI FRROR FREF 100' CERTlFl 



LIFETIME 
d WARRANTY 
SYNCOM diskettes with a lifetime warranty High quality 
packed in polybages of 10 with TYVEC envelopes. Labels 
and Hubnng, 100 % errorfree with a Lustrum Finish, a new 
process that enhances electrical performance. High 
PiayBack signal, low noise, syncom has a increasing media 
life, a Quality Disk 

SSDDea- $ -i 3 qDSDDea- $ 



1 



85 



5V4 Qty20 T'5V4Qty20 

MICROPHS a name p Educational Software dedw atad to education 

W cophs Prc-gra-r designee f: r use on: Apr'e Mile IBM PC Radio Shack 
trs-80 Commodore 64. pet cbw vie 20 

Physics • Chemistry • Calculus • Probability • Scholastic 

Aptitude Test Analogies. Mathematics. Vocabulary • Physical 

Science • Spelling • jr &Sr. High Mathematics • School 

Attendance System • Exam Analysis • Exam Generating 

System • Library Management System • Rolladex System Mail 

List .'Telephone Directory • Recreational Word Games 

EDUCATIONAL CATALOG $1.00 Free with Order 



Flexible Disk Tray 

5'', *ith Key Locking Lid 
40 Disks capacity $22.55— $4.00 shipping 
90 Disks capacity S3? 80 — $5 00 shipping 
Almond Color base with clear top 
Plastic Dividers which snap lock in. 
Each file tray has a key locking lid. 



DISKS N DATA 
153 Kings Highway 
Brooklyn NY 11223 
Educational Software 
and Disks 



Vinyl Storage Sleeves 

lor th'ee ring notebook 
5' : 2 Disks pe' page 
Catalog Cards included 
MirMrrjrr order 20 pages 
Ea 59' ' $1 50ShiD0ing 



SNtowm) 5 v. Diskette Add »3 00 par 100 Of 
Fnm Diskettes COO outer*. Add 53 00 
N*w York customer, Add IV. % Ta» 
Payment Money orders. Bank Chech 

Nationwide: 1-800-842-5400 
In New York: 1-212-837-7563 



CONVERT MOD III BASIC 

MOH 4 1I6.MIT TAADY2000 

It you own a TRS-80 Mod III and have resisted upgrading to the 
TRS-80 Mod A. IBM PC, or Tandy 2000 because your software 
would not be compatible, good news has finally arrived EMSl 
offers 3 powerful utilities for converting your Mod III BASIC 
programs to run on any of these new machines. 
The programs are menu driven, very easy to use and automatically 
translate 95% or more of even your largest BASIC programs in 
lust a few minutes They insert all required spaces between 
keywords, recalculate PRINT® addresses (or replace them with 
LOCATEsi. adiust TAB addresses, correct exponentiation symbols, 
eliminate unnecessary spaces, remove down arrows, optionally 
remove REM's. and flag and list unresolved line numbers User 
guides explain program operation in complete detail, offer 
alternatives for revising lines that need manual intervention and 
numerous hints for easier, more thorough conversions 

CONV3T04 Converts TRS-80 Mod III BASIC to S 49.95 

TRS SO Mod 4 

Hundreds o> satisfied users Ask to see p'og'am 
tarsi .11 youe liiral Radio Shack 



c 



nputi 



C.anl.: 



CONV3TOPC 
CONV3TO2000 



NEW! Converts TRS 80 Mod III BASIC 
to IBM PC- 



NEWI ConvertsTRS 80 Mod III 8ASIC 
to Tandy 2000' 



S139.95 
S1 39.95 



'Includes convenient diskette Inrm.itier and lile transfer program so that 
programs and tiles may be exchanged between machines without modems 
Diskettes find guides are packaged in deluxe three nnq binders. User Guides 
available separately lor those who want complete details before ordeiing 
package 'S5 00 easfi or MO only, credited to subsequent package orden 

TO ORDER, CALL NOW - TOLL FREE(Except NJ) 

800-922-0786 

NJ residents, and local dealers: 201-879-5982 

EDUCATIONAL MICRO SYSTEMS, Inc. 

0^— PO Box 471. Chester New Jersey 07930 

_ DEALER INQUIRIES INVITED 

Terms: VISA, Mastercard. MO check, ot COD Orders shipped within 24 
hrs Add S3.00 shipping/handling. Add SI. 65 tor COD Foreign or first class, 
add first class postage (package wl 2 1 '4 Ibs.l. NJ residents add 6% sales tax 



©afpw&ff ft 



NOW YOU CAN DUPLICATE VIRTUALLY ALL OF YOUR TRS-80 DISKETTES 

COPYCAT 3 will allow you to make an exact duplicate of virtually all of your disk- 
ettes even if they are protected. And this includes your games and utilities. COPY- 
CAT 3 automatically analyzes, formats, copies and verifies each track of the diskette 
you are duplicating. The entire process is amazingly fast, typically less than 70 seconds 
and even less with verify turned off. 

COPYCAT 3 is intended for your personal use only, in making backup copies of your 
protected software. 

COPYCAT 3 will run on the TRS-80 Model 3, 4 or 4P computers. 

COPYCAT 3 $49.95 

Please add $2.00 for postage and handling. CA residents add 6% sales tax. 
All orders are normally shipped the next business day via first class mail. 

E^i:i^]^I;W^;T;W!aP 



®*j 



2170 W. Broadway, #501A 

Anaheim, CA 92804 

(714)772-5000 

Dealer inquiries on your letterhead are welcomed. 



VISA 

a 

- ie 



See List ol Advertisers on Page 145 
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Nil mflRYfTlflC INDUSTRIES INC 

800-231-3680 

Radio Shack TRS-8o's 

EPSON PRINTERS 

People you Trust to give you the very best! 




,w " w '^-'' 




<■ 



r--— h 



Lowest 
Price 

Reliable 
Service 

Quality 
Products 



22511 Katy Fwy., Katy (Houston) Texas 77450 
(713) 392-0747 Telex 774132 



DISK SUPER SAVER 

'Nashua /^>< 

Professional Magnetic [ cA 
Media V_ — 

Certified 100% Error Free 
LIFETIME WARRANTY 

574" SS/SD $1.39 

SS/DD $1.49 

DS/DD $1.99 

8" SS/SD $2.04 

SS/DD $2.44 

DS/DD $2.88 

Minimum order of 20 diskettes packaged in boxes of 10, with Tyvek sleeves 
and reinforced hubs. Quantity discounts: 100 deduct 5%. 1000 deduct 15%. 
We accept MasterCard, Visa, checks and money orders. Most orders ship- 
ped within 24 hours. P.O.'s accepted from most schools, govt, agencies and 
Fortune 1000 companies. Shipping and handling F.O.B. Amherst $3.00 addi- 
tional for C.O.D orders. Prices subject to change without notice. 
Send or phone your order to: 

AEC 

mm ^ P.O. Box 183, Amherst, N.H. 03031 ^^^ 

<{'■>-. Toll Free 1-800431-8031 ff^ 

^^ m In N.H. call 603-673-3137 ^^^ 



ALWAYS AT 
SALE PRICES 



TRS-80 



ALWAYS AT 
SALE PRICES 




See List ol Advertisers on Page 145 
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Fby Daniel Garms 
orget your balance sheets and 
home-budget programs. Here's 
a full- featured, menu-driven 
Model I/III spreadsheet that gives you 
all the capabilities of its commercial 
counterparts, including a rapid-entry 
mode that lets you enter information in- 
to the spreadsheet without waiting for 
the program to recalculate related values. 
NovaCalc also totals and averages a 
series of cells and has a built-in four- 
l unci ion calculator that lets you make 
calculations before entering the results 
in the spreadsheet. It accepts label 
(text), numeric, and formula entries of 
up to 12 characters. 

Operating NovaCalc 

When you run NovaCalc, it prompts 
you to select 1-, 2-, 3-, or 4-digjt preci- 
sion and to choose from four spread- 
sheet formats (24 columns by 26 rows, 
16 by 39, 12 by 52, or 8 by 78). Nova- 
Calc then displays the spreadsheet with 
a command prompt and cell status line 
at the top of the screen. 

NovaCalc provides a total of 624 
cells. You identify cells by column and 
row. For example, A01 represents the 
cell at column A, row 1. Use the arrow 
keys to move the cell pointer (cursor) 
from cell to cell. 

The slash key (/) puts NovaCalc in 
the command mode. Press this key and 
a list of commands appears at the screen 
top. NovaCalc supports 13 commands 
(see Table 1). You invoke the desired 
command by pressing its first character. 



Whether you're making five-year fiscal projections 
or managing your home budget, NovaCalc tracks your 
finances with all the features of a commercial spreadsheet. 



The clear key is the escape character. 
Press it to cancel the current routine and 
return to the spreadsheet. When used in 
the rapid-entry mode, the clear key can- 
cels the current routine and updates the 
spreadsheet for all previous entries 
made in this mode. 

The rapid-entry mode works when 
you enter data or use the calculator rou- 
tine. Hit any arrow key instead of the 
enter key to make another entry without 
recalculating all the affected cells. 

The contents of the cell at the cursor 
position appear on the cell status line 
as you make an entry. To recalculate the 
spreadsheet after an entry, hit the 
enter key. 

Pressing the clear key or executing 
any command except Alpha, Value, or 
Calculator (described below) exits the 
rapid-entry mode and recalculates the 
spreadsheet. The program also exits the 
mode if the cursor scrolls to a column or 
row that's off-screen. 

Labeling Cells 

You use the Alpha command (A) to 
label a cell. When you invoke this com- 
mand, the cell status line displays a low- 
ercase (a) at the top of the screen and in 
the cell. However, this simply serves as 
an indicator; you still have all 12 char- 
acter spaces available for entering text. 

Type in your entry at the prompt and 
press the enter key to update the spread- 
sheet or the clear key to cancel the entry. 

You can enter any combination of 
alphanumeric characters as a label ex- 



cept an open parenthesis or quotation 
marks. NovaCalc's value interpretation 
routine uses an open parenthesis to 
detect alpha entries. Basic uses quota- 
tion marks as delimiters when separat- 
ing and storing string variables, and 
NovaCalc saves all variables as strings. 

You can't combine cells with label 
entries in mathematical functions, but 
you can use label cells in a column or 
row without affecting the total. The 
program's value interpretation routine 
sets the value of any alpha or blank cell 
to zero. 

Blanking Out Cells 

Blank (B) deletes the contents of a 
cell. It erases cell formulas and values 
and updates the spreadsheet. 

If the cell you're blanking out derives 
from a formula in another cell, that for- 
mula remains unaffected, but the value 
of the blanked cell equals zero. 

Copying Values 

The Copy command (C) copies a 
cell's value to other cells so you don't 
have to reenter information. Copy can 
also link cells so that NovaCalc updates 
them whenever the source cell changes. 

To link cells, type Y at the link 
prompt, or type N to copy without link 
ing. Once linked, the destination cells 
contain a value like A01C, for example. 
A01 represents the source cell and C in- 
structs the value interpretation routine 
to get the spreadsheet value from the 
source cell. 
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Command 


Description 


Alpha 


Alpha command for entering label data 


Blank 


Blank command clears cell and deletes formula used to create it 


Copy 


Copy command copies value of one cell 10 another cell 


Delete 


Delete command erases cell formula while retaining cell's value 


Go To 


GOTO command positions cursor at specified cell location 


Help 


Help command displays explanations for all NovaCalc commands 


Load 


Load command loads saved spreadsheets 


Prim 


Prints out the portion of the spreadsheet on the screen 


Quit 


Quit command ends session and prompts you to save daia 


Replicate 


Replicate command projects and modifies over a series of cells 


Save 


Save command saves data to disk 


Value 


Value command for entering formulas and values 


Calculate ( = ) 


Activates four-function calculator 




Table I. Commands for NovaCalc. 



You can't link alpha cells; the pro- 
gram unlinks any cell containing an al- 
pha value prior to copying it to a new 
location. 

The next prompt asks you if you 
want the cell copied to another cell loca- 
tion (Q, or copied several locations 
down (D) or right (R). 

The C option displays the current 
cursor location followed by an equals 
sign. You enter the target location. For 
example, entering A02 at this prompt 
copies the current cell to the second row 
of column A and updates the spread- 
sheet. 

When you copy down or right, the 
program asks you how many times you 
want to copy the cell. Enter a number 
and hit the enter key. The program 
copies the value of the current cell loca- 
tion down or right the specified number 
of times and updates the screen. 

Deleting Formulas 

Delete (D) erases the formula used to 
calculate a cell without removing the 
cell's current value. It's useful for un- 
linking cells created with the Copy com- 
mand. Press the D key to delete the for- 
mula and update the spreadsheet. 

The GOTO Command 

The GOTO command (G) lets you 
move the cursor to any cell by entering 
its location. This saves moving through 
the spreadsheet with the arrow keys. 
GOTO is especially useful when you 
want to move to a cell that's off-screen, 
or when you want to print a specific ar- 
ea of the spreadsheet. 

GOTO prompts you for a cell loca- 
tion, then makes that location the upper 
left-hand cell on the display. For exam- 
ple, typing H, 1 , and 7 resets the display 
to show columns H, I, J, and K and 
rows 17-29. If the cell specified is too 
far down to display a full screen, Nova- 
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Calc doesn't print the cell in the upper 
left-hand corner; instead, it marks the 
position with the cursor and displays a 
full screen. 

Press the clear key to cancel GOTO 
and recalculate the spreadsheet. If you 
specify a cell location outside the limits 
of the spreadsheet, the program dis- 
plays an "Entry Error" message and 
stays at the current cell location. 

The Help Command 

The Help command (H) lists Nova- 
Calc's commands and gives you a short 
definition of each. Press the clear key to 
return to the spreadsheet. 

Loading a Spreadsheet 

To load files from disk, press the L 
key. Enter the appropriate file number 
(1-9) at the prompt. The message 
"Loading" appears on the screen as the 
file loads. 

When the program finishes loading, 
it recalculates the spreadsheet and resets 
the cursor position to cell A01. 

NovaCalc saves spreadsheet cells in 
an order dependent on the number of 
rows and columns. Before loading a 
file, be sure to choose the appropriate 
spreadsheet format. Otherwise, cells 
can reference formulas that don't exist. 

Printing Spreadsheets 

The Print command (P) prints out the 
portion of the spreadsheet on the display 
(four rows and 13 columns). You can 
print the values or the formulas. 

Print prompts you to hit the enter key 
when the printer is ready. To cancel the 
Print command, press the clear key. 

The program next asks you to press 
the D key to print display values, or the 
F key to print formulas. Press the ap- 
propriate key and hit the enter key. The 
program displays a "Printing" message 
and prints the spreadsheet. 



Ending a Session 

To end a session or restart the pro- 
gram, press the Q key. Quit prompts you 
to save data before ending the session. 

The program then branches to the 
Save routine or prompts you to return to 
the spreadsheet (R), create a new spread- 
sheet (Q, or exit to Basic ready (E). 

The Replicate Command 

The Replicate command projects and 
modifies a formula over a series of cells. 
This saves you from entering similar 
formulas in contiguous cells. Replicate 
works down or to the right. 

For example, assume columns A, B, 
and C are labeled Income, Expenses, 
and Remaining Amount, and the for- 
mula for cell C01 is C01 = A01 - B01 . If 
rows 1-12 represent January through 
December, and you want the same for- 
mula for each month, you must type 
C02 = A02-BO2, C03 = A03-B03, and 
so on. 

To do this automatically, type in R to 
enter the Replicate routine, then type D 
at the prompt for down, and 11 at the 
prompt for the number of times you 
want to replicate the formula. 

If the number of rows or columns 
specified exceeds the number of remain- 
ing rows or columns in the spreadsheet, 
the program adjusts your entry before 
executing the command. 

To replicate a formula to all remain- 
ing cells, enter any number exceeding 
the number of columns or rows in the 
spreadsheet. Press the clear key to can- 
cel Replicate. 

Saving Spreadsheets 

The Save command (S) lets you save 
up to nine spreadsheet templates and 
data. The routine prompts you to save 
the file to a number from 1-9. Select a 
number or press the clear key to return 
to the command prompt. 

NovaCalc displays a "Saving" mes- 
sage as it saves the spreadsheet to disk, 
then prompts you to return to the 
spreadsheet (R), create a new spread- 
sheet (N), or exit the program (E). 

The Value Command 

The Value command lets you enter 
numeric values or formulas. To make 
an entry, press the V key, type in the 



The Key Box 

Models I and IJ] 

48K RAM 
Disk Basic 
PnnteT \optiunal) 



LOAD 80 



SOFTWARE PRICE WAR 

$24.95 

30 Day Money Back Guarantee 

These are complete software systems supplied to you on a TRSDOS 1.3 system diskette 
All systems fully menu driven — user friendly just insert diskettes, reset and go. Systems 
are supplied with full documentation (although most users report that they don't read it). 

This is a sample of my mail 

"Your PAYROLL program is great — I use it for all my accounts — it's quite a time 
saver." Hampton, NJ 

"I received your PAYROLL program yesterday and was impressed by it. Hence I 
am enclosing a Cashier's check for..." Jacksonville Beach, FL 

"A friend showed off his possession of your check register system to me and I 
want a copy for my personal use." Bloomington, IL 

"We have received the first two programs and have found them to be quite 
sophisticated and are anxious to try another. Please accept my order for..." 

Durango, CO 

All systems are on a TRSDOS 1.3 diskette ready to run on a TRS 80 Model III or Model IV In III Mode. 

AND THE BEST PART. . . ANY SYSTEM ONLY $24.95 



LYNN'S PAYROLL SYSTEM 

Complete record keeping & payroll calculation. To 
include your state's unemployment tax & forms, 
detailed 941 form, prints paychecks & W-2's. 

LYNN'S ACCOUNTS 
RECEIVABLE SYSTEM 

Single entry — open invoice system. Prints invoice 
and statements. Built in aging report. 

LYNN'S CHECK REGISTER 
SYSTEM 

Prints checks. Register for any month, reconcilliation 

statement. 

1,000 checks per month — 220 expense accounts. 

LYNN'S TRSDOS 
UTILITY PROGRAMS 

For TRSDOS 1.3 includes short directory (file names 
only), cursor directory (allows cursor access to CMD, 
BASIC, and "DO" Files), and a 2K Print Spooler. Menu 
installs utilities on existing TRSDOS Diskettes. 

LYNN'S E-Z MAIL SYSTEM 

Sort by name, zip code, state. 2,500 names. E-Z edit. 
Joe Lynn 



LYNN'S MAILING LIST 

$ 19 95 EACH DISKETTE 
Over 2,000 names on a diskette. East half or west half of 
U.S. to be used with Lynn's E-Z mail. 

ALSO AVAILABLE: 
VERBATIM DISKETTES $20 




Computer Services 

23501 W. Gagne Lane 

Plainfield. Illinois 60544 

815/436-4477 




YES. PLEASE SEND ME 

□ LYNNS PAYROLL SYSTEM 

□ LYNN'S ACCOUNT RECEIVABLE 

□ LYNNS CHECK REGISTER SYSTEM 

□ LYNNS TRSDOS UTILITY PROGRAMS 

□ LYNNS E-Z MAIL SYSTEM 

□ VERBATIM DISKETTES 

D I'M INTERESTED -SEND ME MORE INFO 

Please include $3.00 shipping (plus $1.65 if COD ) 

Illinois residents add 6'/.% sales tax 

5% surcharge for credit card orders 

Total amount enclosed 



[J check/mo 

CARD » 



□ VISA □ MC 



COD 
_EXP DATE. 



SIGNATURE. 



ADDRESS. 
CITY 



STATE 



JOE LYNN COMPUTER SERVICES 

23501 W. Gagne Lane, Plainfield, IL 60544 



ZIP 



s See List ol Advertisers on Page 145 
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numeric value or formula and hit the 
enter key. 

NovaCaJc accepts any positive or 
negative number value as numeric in- 
put. Input numeric values requiring a 
mathematical operator with the Calcu- 
lator routine. 

To input a numeric value, type in the 
value and hit any arrow key to continue 
or the enter key to recalculate. 

NovaCalc formulas add, subtract, 
multiply, or divide two cells or a cell and 
a numeric value. To build a formula, 
move the cursor to the cell where you 
want the result to appear. The cell loca- 
tion appears at the screen top in the for- 
mat A01 = . 



Type in a cell location, a mathemati- 
cal operator, and a numeric value, or a 
cell location. Now hit the enter key and 
the program calculates the value and 
puts it in the cell. 

NovaCalc retains the formula used to 
calculate the cell and displays it on the 
cell status line when you position the 
cursor at the cell. The program updates 
the display for formula changes when it 
recalculates the spreadsheet. 

In addition to the four mathematical 
operators listed above, NovaCalc also 
totals (T) or averages (A) a series of cells 
(see Table 2 for a list of mathematical 
functions). 

To total a series of cells in the same 



Mathematical 




Operator 




Definition 


A 




Averages a series of cells in the same column or row 


T 




Totals a series of cells in the same column or row 


+ 




Adds second entry to first entry 


- 




Subtracts second entry from first entry 


* 




Multiplies first entry by second entry 


/ 




Divides first entry by second entry 




Table 2. Mathematical operators for SovaCak. 



Program Listing. NovaCalc spreadsheet program. 



10 CLS:CLEAR150:A$=STRING$(128 r 179) :PRINTg0,A$; :PRINT§267 ,"NovaC 

ale Financial Package Spreadsheet 1.0"; :PRINTg896, "Copyright 198 

3 by Daniel D. Garms" ; : FORD=1TO1500 :NEXT:CLEAR18000 :N$=STRING$(6 

4,32) 

20 PRINTG896,"Set decimal precision to how many points? (1, 2, 3 

, or 4) "; 

30 I$=INKEY$: IFI$=""THEN30ELSEIFI$<"1"ORI$>"4"THEN30 

40 N=VAL(I$) :PRINTN; :T$=STRING$(N,48) : 1$="1" :T$=I$+T$:N=VAL(T$) 

50 PRINTS395, "Format spreadsheet as: " :PRINT:PRINT, "1 . 24 column 

s by 26 rows": PRINT. "2. 16 columns by 39 rows" :PRINT, "3 . 12 co 

lumns by 52 rows" :PRINT, "4. 8 columns by 78 rows" 

60 I$=INKEY$: IFI$=""THEN60ELSEIFI$<"1"ORI$>"4"THEN60 

70 IFI$="1"THENH=24ELSEIFI$="2"THENH=16ELSEIFI$="3"THENH=12ELSEH 

-8 

80 U=624/H:DIMB$(U,H) :DIMD$(U,H) :A$="FILE T":CLS 

90 REMSCREENSETUP 

100 B=197:I=1:J=1:K=1:L=1:E=0 

110 CLS 

120 C=J:R=I:PRINTg0,N$;N$;STRING$(4,143) ;CHR$(191) ;STRING$ (6 ,143 

);" ";CHR$(J+64) ; " " ;STRING$(11 ,143) ; " " ;CHR$( J+65) ; " ";STRING$( 

11,143);" ";CHR${J+66) ;" " ;STRING${11 ,143) ;" " ;CHR$( J+67) ; " "jST 

RINu$(6,143) ;CHR?(191) ;CHR$(32) ; 

130 R$=STR$(R) :R$=RIGHT$(R$,2) : IFR>9THEN150 

140 R$=RIGHT$(R$,1) :T$="0" :R$=T$+R$ 

150 PRINTCHR$(32) ;R$;CHR$(32) ;CHR$(191) ;STRING$( 57 ,32) ;CHR${191) 

160 R=R+1:IFR=I+13THEN180 

17 PRINTCHR$(32) ; :GOTO130 

180 REMPRINTCELLS 

190 ONERRORGOTO2740:PRINT@0,N$; :PRINT§0, "NovaCalc Spreadsheet "; 

A$;" (Press </> for commands)"; 

200 PRINT§64,N$;:PRINTe64,"* * * CALCULATING * * *" ; :C=J:R=I :P=1 

98 

210 PRINT8P,CHR$(32) ; : V$=MID$ (B$(R,C) ,1,1) : IFV$=>"A"ANDV$<CHR$(H 

+65)THEN290ELSEIFV$=>"0"ANDV$=<"9"THEN250ELSEIFV$«"+"THEN230ELSE 

IFV$="-"THEN240ELSEIFV$=""THEN220ELSEIFV$="("THEN270ELSE280 

220 D$(R,C)="":GOTO630 

230 F#=0:T$=MID$(B$(R,C) ,2) :S#=VAL(T$) :GOTO350 

240 F#=0:T$=MID$(B$(R,C) ,2) :S#=VAL(T$) :GOTO360 

250 F=VAL(B$(R,C)) :S=VAL(V$) : IFF<STHEN280 

260 F#=0:S#=VAL(B$(R,C)) :GOTO350 



column or row, enter a starting cell lo- 
cation, press the T key, enter an ending 
cell location, and hit the enter key. 

The program adds the contents of the 
cell locations from the starting cell to 
the ending cell and puts the result at the 
cursor location. 

To average a series of cells in the 
same column or row, enter a starting 
cell location, type A, enter an ending 
cell location, and hit the enter key. 

NovaCalc averages all cells from the 
first to the second location and displays 
the results at the cursor location. 

Using the Calculator Function 

The Calculator command adds, sub- 
tracts, multiplies, and divides values. 
To use it, hit the equals key. The routine 
displays the prompt START WITH 
<OELL VALUE X OR <Z>ERO? 

Press the C key to use the current cell 
value as the starting subtotal. Press the Z 
key to start with a subtotal of zero. 

Calculator displays the message SUB- 
TOTAL =X, where X is the value you 
specified above, and the prompt EN- 
TER VALUE: . 

Type in a value and press the ap- 
propriate mathematical function ( + , - , 
*, or /). Calculator performs the func- 
tion on the value to create a new subto- 
tal, and displays it at the screen top. 

With a starting subtotal of zero, typ- 
ing 1, 2, 3, and a plus sign adds 123 to ze- 
ro for a new subtotal of 123 (the pro- 
gram ignores instructions to divide by 
zero). 

When you're finished, hit the equals 
key to set the cell value to the new subto- 
tal, or hit the clear key to exit the 
routine. 

To use the rapid-entry mode with the 
Calculator routine, press any arrow key 
instead of the equals key. This places the 
value of the subtotal in the cell, but does 
not update the rest of the worksheet. 

The Final Analysis 

While NovaCalc is a full-featured 
spreadsheet, it lacks the speed of com- 
mercial programs. Occasionally, Nova- 
Calc must do a dynamic string alloca- 
tion. When this happens, the computer 
goes through memory to clean out the 
old variables and appears to hang up for 
several minutes. 

However, this is a minor inconveni- 
ence when weighed against the cost of 
commercial spreadsheet programs. If it 
means saving $100 or more, most home 
applications can probably wait a few 
minutes for the same results. B 

Contact Daniel D. Ganns at P.O. 
Box 3742, Reston, VA 22090. 
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MODEL 4 



ELECTRONICS 



MODEL 16 



MODEL 12 






Eng T 



MOD 2000 W/MONO MONITOR 2299.00 

16K MODEL 4 CASS VERS 579.00 

64KMODEL42DRRS232 935.00 

64K MODEL 4 PORTABLE 935.00 

80KMODEL121 DR 2189.00 

80K MODEL 122 DR 2719.00 

256K MODEL 16 1 DR 3099.00 

256K MODEL 16 2 DR 3629.00 

256K MODEL 16 1 DR W/HD 4999.00 

8K MODEL 100 PORTABLE 459.00 

24K MODEL 100 PORTABLE 569.00 

15 MEG HD MOD 12/16 W/KIT . 2318.00 

15 MEG HD MODEL III/4W/KIT 1999.00 

10 MEG HD MOD 2000 INTERNAL 1439.00 



MOD 2000 W/COLOR MONITOR 2669.00 

MOD 20001 DRIVE W/HARD DISK . . . .3299.00 

DMP 105 PRINTER 145.00 

DMP 110 PRINTER 269.00 

DMP 120 PRINTER 359.00 

DMP 200 PRINTER 379.00 

DMP430 PRINTER 585.00 

DMP 500 PRINTER 999.00 

DMP 2100 PRINTER 825.00 

DMP 2100 PRINTER 1499.00 

DWP 210 DAISYWHEEL 429.00 

DWP 410 DAISYWHEEL 539.00 

DWP 510 DAISYWHEEL 1139.00 

DWP II DAISYWHEEL 819.00 



100% RS COMPONENTS NO FOREIGN DRIVES OR MEMORY FULL WARRANTY 

ALL RS SOFTWARE 20% OFF CATALOG PRICE 

CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALL ORDERS 



(817) 825-4027 



NOCONA ELECTRONICS » box 593 • nocona, tx 76255 



S 232 



k- See List ot Advertisers on Page U5 
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THE "j_§_S_T- SOFTWARE IS 6UARANTEED! 
TRY IT and LIKE IT, or SET a REFUND 

The Machine coda L-U is "A" rated by 
AUanbiCh'a ■ SOFTWARE REPORTS " for : 

tASY USE, DOCUMENTATION, FEATURES 

- SCREEN DISPLAYED lilt it PRINTING. 

- Uaa ANY PRINTER • GRAPHICS ootUni. 

- FULL PRINTING CONTROLS: Coluani, 
Unas, pagat, FORK LETTERS/LABELS, 
LEGALpaparLINE NUNBERS*HASSNAILER. 

- FULL TYPING CONTROLS: Copy/Nove/ 
Center/Insert/Delete--Charaeters/ 
Mords/Lines/Blocks/Coluans/Files. 

- *OVER SO ASCII Coda/PHRASE typing 
Insertions latup/ttorad byusart. 

- "WARN START and pra-iat PAGE SAVE. 

- Split acraan typing Una, taa old 
and nan varsion 'cancel changes. 

- Uncodified WI lee/pri nt lowercase. 

- INTERCRATED boekkaaplng ADD / SUB. 

- EASY ARROW KEYS CURSER lovei: Up/ 
Doan/Right/Laf t Start / End-L 1 nes / 
columns/page and WORD WRAP control. 

- ONE NODE: Typt/ld1t/Dalata without 
twitching aodes-MO TRAINING PERIOD. 



WE PAY TAI/USA SHIPPING. Try a L-W 
for 3 Months. Like it or return It for 
a refund, lass our S/H costs of S3. SO. 

Nodali I, III/IV: TAPE 16K 123.99 
DISK 32K (a Eitra Features) S37.99 

VERBATINSS/DD (Box of 10d1aks) S19.99 



ASTRO-STAR ENTERPRISES .-383 
5905 Stona M1 1 1 Dr. Information: 
RockUn, CA 95677 (916) 624-3709 

Orders: 1-8QQ-6Z2-4070 lit. AS 
In IL 1-800-942-7317 Ext. AS 



DISCOUNTS 

on all 

TRS-80® 
COMPUTERS 

with 
Manufacturers Guarantee 

Call or Write For 
Free Catalog and Price List 

'Trademark O* Tindy CofpO'ltion 

HARMON 

Hdw.t Supply 

307 N. Main 
/\ Denver City, Tx 79323 
V-\r? 806-592-2472 
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270 D$(R,C)=MID$(B$(R,C) ,4) :GOTO630 

280 D$(R,C)="ENTRY ERROR ":GOTO630 

290 T«LEN(B$(R,C)) : IFTX4THEN280 

300 W$=MID$(B$(R.C) ,2,2) :X$=MID$(B$ (R,C) ,4,1) : V=ASC( V$) -64 :W=VAL 

(W$) : IFV>HORW>UTHEN280ELSEF#=VAL(D$ (W,V) ) : IFX$="C"THEN400 

310 Y$=MID$(B$(R,C) ,5,1) :IFY$<"0"ORY$>"9"THEN330 

320 T=VAL(Y$) :Y$-MID$(B$(R,C) ,5) :S#=VAL(Y$) : IFS#<TTHEN280ELSE340 

330 Z$=MID$(B$(R,C) ,6,2) : Y=ASC (Y$) -64: Z=VAL( Z$) : IFY>HORZ>UTHEN28 

0ELSES#=VAL(D$(Z,Y)) 

340 IFX$="+"THEN350ELSEIFX$="-"THEN360ELSEIFX$-"*"THEN370ELSEIFX 

$="/"THEN3 80ELSEIFX$="A"THEN410ELSEIFX$="T"THEN420ELSE280 

350 T#=F#+S#:GOTO550 

360 T#=F#-S#:GOTO550 

370 Tt=F#*S#:GOTO550 

380 IFS*=0THEN280 

390 T#=F#/Sf :GOTO550 

400 T#«=F#:GCTO550 

410 D=l 

420 IFV=YTHEN4 90 

430 F#=VAL(D$(W,V) ) 

440 V=V+1:S#=VAL(D$(W,V)) 

450 T#=F#+S#:D=D+1:IFV=YTHEN470 

460 F#=T#:GOTO440 

470 IFX$="T"THEN550 

480 Tf«T#/D:GOTO550 

490 F#=VAL(D$(W,V)) 

500 W-W+1:S#=VAL(D$(W,V) ) 

510 T#=F#+S#:D=D+1:IFW=ZTHEN530 

520 Fi=T#:GOTO500 

530 IFX$="T"THEN550 

540 T#=T#/D 

550 IFT#=>0THEN570 

560 T#=T#*N:T#=T#-.5:T#=FIX(T#) :GOTO580 

570 T#=Tf*N:T#=T# + .5:TMFIX(T#) s 

580 Q$=STR$(N) :Q=LEN(Q$)-2:P$«".":T$=STR$(TI) :F$=RIGHT$(T$,Q) :F= 

LEN(T$) :IFF=<QTHENF=Q+1 

590 T$«LEFT$(T$,F-Q) :F=VAL(F$) :F$=STR$(F) : F$=MID$ (F$ , 2) 

600 F=LEN(F$) :IFF«=QTHEN620 

610 S$=STRING$(Q-F,48) :F$=S$+F$ 

620 T$=T$+P$+F$:D$(R,C)=T$ 

630 F=LEN(D$(R,C)) :IFF>12THEN650 

640 F=12-F: IFV$«" ( "THEN670ELSE660 

650 D$(R,C)=LEFT$(D$(R,C) ,12) : F=0 : PRINTgP, "%" ; 

660 PRINTSTRING$(F,32) ;D$(R,C) ; :GOTO680 

670 PRINTDS(R,C) .'STRINGS (F , 32) ; 

680 R-R+1:IFR=I+13THEN700 

690 P=P+64:GOTO210 

700 R=I:P=P-7 54:OC+1:IFC=J+4THEN710ELSE210 

710 IFE=1THEN720ELSE730 

720 1*1+13 :D=D+1:GOTO1900 

730 REMCURSORCONTROL 

740 C=L:R=K:R$=STR$(R) : R$=RIGHT$ (R$ , 2) : IFR>9THEN750ELSER$«RIGHT$ 

(R$,l) :T$="0":R$=T$+R$ 

750 PRINT@B,CHR$(183) ; :PRINT@B+14 ,CHR$(187) ? 

760 L$=CHR$(C+64) :T$=" «= " :L$=L$+R$+T$: PRINT&64 ,N$; : PRINTg64 ,L$; 

B$(R,C); 

770 I$=INKEY$ 

7 80 IFI$=""THEN770ELSEIFI$=CHR$(13)THEN770ELSEIFI$=CHR$(34)THEN7 

70ELSEIFI$=CHR$(31)THEN190ELSEIFI$=CHR$(91)THEN7 90ELSEIFI$=CHR$( 

10)THEN840ELSEIFI$=CHR$(8)THEN890ELSEIFI$*CHR$(9)THEN940ELSEIFI$ 

="/"THEN990ELSE770 

790 PRINT/SB, CHR$(32) ; :PRINT§B+14 ,CHR$ (32) ; : K*K-1 : IFK<1THENK=1ELS 

E810 

800 PRINT§B,CHR$(183) ; :PRINTgB+14 ,CHR$ ( 187) ; :GOTO770 

810 IFK<ITHEN830 

820 B=B-64:GOTO740 

830 1*1-1 :GOTO120 

840 PRINTeB,CHR$(32) ; : PRINTgB+14 ,CHR$ (32) ; :K-K+1: IFK>UTHENK=K-1E 

LSE860 

850 PRINT§B,CHR$(183) ; :PRINT§B+14 ,CHR$ ( 187) ; :GOTO770 

860 IFK=I+13THEN880 

870 B=B+64:GOTO7 40 

880 1=1+1 :GOTO120 

890 PRINT@B,CHR$(32) ; : PRINT§B+14 ,CHR$ (32) ; :L=L-1: IFL<1THENL=1ELS 

E910 

900 PRINTgB,CHR$(183) ; : PRINTgB+14 ,CHR$ (187) ; :GGTO770 

910 IFL<JTHEN930 

920 B=B-14:GOTO7 40 

930 J*J-1:GOTO120 

940 PRINTgB,CHR$(32) ; :PRINTgB+14 ,CHR$ (32) ; :L=L+1 : IFL>HTHENL-L-1E 

LSE960 

950 PRINT@B,CHR$(183) ; : PRINTgB+14 ,CHR$ (187) ;:GOTO770 

960 IFL=J+4THEN980 



/ Ming continued 
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970 B=B+14:GOTO740 

980 J=J+1:GOTO120 

990 RENCOHMANDS 

1000 PRINT364, "Alpha Blank Copy Del Goto Help Load Print Quit Re 

pli Save Val ="; 

1010 I$»INKEY$:IFI$»="THEN1010ELSEIFI$-CHRS(31)THEN740ELSEIFI$=" 

A"THEN1030ELSEIFI$*= B B"THEN1050ELSEIFI$ = "C"THEN1070ELSEIFI$'="G"TH 

EN1470ELSEIFI$="H"THEN1600ELSEIFI$="L'THEN1670ELSEIFI$="P"THEN18 

50ELSEIFIS="Q"THEN2020ELSE102 

1020 IF1$="D"THEN1420ELSEIFIS="R"THEN2240ELSEIFI$»"S"THEN2050ELS 

EIFI$="V"THEN2520ELSEIFI$="="THEN2580ELSE1010 

1030 REM ALPHA 

1040 T$-"(a) ":PRINTg0,N$;N$; :PRINT§0, "Type entry then depress <E 

NTER>"; :PRINT§64,L$;T$; :GOTO2540 

1050 REMBLANK 

1060 B$(R,C)="":GOTO200 

1070 REMCOPY 

1080 PRINT00,N$;N$; : PRINT§0 r "Link cells? <Y>es or <N>o"> 

10 90 I$=INKEY$:IFI$=""THEN1090ELSEIFI$=CHR$(31)THEN190ELSEIFI$-" 

Y"THENE=0ELSEIFI$="N"THENE=2ELSE1090 

1100 PRINT§0 r STRING$(128,32) ; : PRINT30, "Copy <C>ell, <D>own, or < 

R>ight?"; 

1110 I$ = INKEY$:IFI$=""THEN1110ELSEIFI$«="C"THEN1320ELSEIFI$-"D"TH 

EN1120ELSEIFI$="R"THEN1220ELSEIFI$>=CHRS(31)THEN190ELSE1110 

1120 PRINT@64,"Type number of rows to copy down then <ENTER> ";: 

T$="":F$=LEFT$(L$,3) :SS="C":F$>=FS+S$: IFB$(R,C) =""THENF$-"" 

1130 I$«INKEY$:IFI$=""THEN1130ELSEIFI$=CHR$(31)THEN190ELSEIFI$=> 

"0"ANDI$=<"9"THEN1140ELSEIF1$=CHR$(13)THEN1150ELSE1130 

1140 PRINTI$; :T$=T$+I$:GOTO1130 

1150 F=R+1:S=VAL(T$) :T=R+S : IFT>UTHENT=U 

1160 IFLEFT$(B$(R,C) , 1) =" ( "THEN1170ELSE11 80 

1170 E«=0:FORD=FTOT:B$(D,C)«B$(R,C) :NEXT:GOTO190 

1180 IFE=0THEN1210 

1190 E=0:F#=VAL(D$(R,C) ) : F$=STR$ (F« ) : IFF# <0THENl210 

1200 F$=MIDS(F$,2) 

1210 FORD=FTOT:B$(D,C)=F$:NEXT:GOTO190 

1220 PRINT?64,"Type number of columns to copy right then <ENTER> 

"; :T$ = "":F$=LEFT$(L$,3) :S$*="C" : F$=F$+S$ : IFB$ (R, C) =""THENF$«"" 
1230 I$=INKEY$:IFI$=""THEN1230ELSEIFI$=CHR$(31)THEN190ELSEIFI$=> 
"0"ANDI$=<"9"THEN1240ELSEIFI$=CHR$(13)THEN1250ELSE1230 
1240 PRINTI$; :T$=T$+I$:GOTO1230 
1250 F=C+1:S=VAL(T$) :T=S+C: IFT>HTHENT=H 
1260 IFLEFT$(B$(R.C) , 1) =" ( "THEN1270ELSE1280 
1270 E»0:FORD=FTOT:B$(R,D) =B$(R r C) :NEXT:GOTO190 
1280 IFE=0THEN1310 

1290 E=0:F#=VAL(D$(R,C)) :F$-STR$(F#) : IFF#<0THEN1310 
1300 F$=MID$(F$,2) 

1310 FORD=FTOT:B$(R,D) =F$ :NEXT:GOTO190 

1320 S$=LEFT$(L$,3) : F$="C" : F$=S$+F$ : PRINT§64 , "Copy ";S$;" to ";: 
S$="" 

1330 I$=INKEY$:IFI$=""THEN1330ELSEIFIS=CHR$(31)THEN190ELSEIFI$<" 
A"ORI5>CHR$(H+64)THEN1330ELSET$=I$ 
1340 PRINTI$; 

1350 I$=INKEY$:IFI$=""THEN1350ELSEIFI$«CHR$(31)THEN190ELSEIFI$<" 
0"ORI$>"9"THEN1350 

1360 PRINTI$;:S$=S$+I$:T-LEN(S$) : IFT<2THEN1350 
1370 F=ASC(T$)-64:S=VAL(S$) 
1380 IFLEFT$(B$(R,C) , 1) ■=" ( "THEN1410 
1390 IFE=2THEN1410 
1400 BS(S,F)=F$:GOTO190 
1410 E=0:B$(S,F)=B${R,C) :GOTO190 
1420 REMDELETE 

1430 F$=LEFT$(B$(R,C) ,1) : IFF$=" ( "THEN190 
1440 F#=VAL(D$(R,C) ) :F$=STR$(F#) : IFF#<0THEN1460 
1450 F$=MID$(F$,2) 
1460 B$(R,C) =F$:GOTO190 
1470 REMGOTO 

1480 PRINT§0,N$;N$;:PRINT@0,"Go to which cell? "; 

1490 I$=INKEY$:IFI$=""THEN14 90ELSEIFI$=CHR$(31)THEN190ELSEIFI$<" 
A"ORIS>CHR$(H+64)THEN1490ELSEF$»I$:S$«"" 
1500 PRINTIS; 

1510 I$=INKEYS:IFI$=""THEN1510ELSEIFI$=CHR$(31)THEN190ELSEIFI$<" 
0"ORI$>"9"THEN1510 

1520 PRINTIS; :S$=S$+I$:T*LEN(S$) : IFT<2THEN1510 
1530 S=VAL(S$) :IFS>UTHEN2740 

1540 J=ASC(F$)-64:L=J:C-L:F=0:IFJ>H-3THEN1550ELSE1560 
1550 J=H-3:F=H-L:F=F*14:F=42-F 
1560 R=VAL(S$) :IFR>UTHEN2740 
1570 IFRXJ-12THEN1590 
1580 I-R:K=R:B=197:B=B+F:GOTO120 

1590 I=R/13+.95:I=FIX(I) : I«I*13-12:T=(R-I) *64:B=T+197+F:K=R:GOTO 
120 
1600 REMHELP 
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Mac Inker 

A Gift For Christmas 
A Gift For All Seasons 

Ii Shakespeare had had a word pro- 
cessor he would have consumed about 
25 cartridges to run a first draft of his 
works. At an average of $10/cartridge 
the cost is $250. With MAC INKER he 
would use one cartridge, his total would 
be 50 cents in ink and his print-out 
quality would be much improved. 

MAC INKER is very simple to use and 
automatic. Average ink cost/re -inking is 
5 cents. We support 535 printers and we 
have 20,000 units in the field, in the US 
and in 5 continents. 

MAC INKER, a gift for Christmas, that 
will last for years in many seasons to 
come. $54.95 + 




Mac Switch 

Choose also our popular MAC SWITCH, 
serial or parallel switch - the ideal com- 
panion for the user who has 2 printers or 
2 microcomputers or both. $99.00 




Order toll free 1-800-547-3303 
or ask for free brochure 

C" mputer Friends 

6415 S.W. Canyon Court 
Suite #10 -35? 

Portland, Oregon 97221 
(503) 297-2321 



See List of Advertisers on Page 145 
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SuperSCRIPSIT' insert pgs Mod 3 expands training 
manual. ( ombines ref. manual info Inc chart $16.00 

Profile III Plus" 10H insert pus tor Mod I manual, espl 
examples 2 16x22 (low charts $16.00 

GL insert pgj Moil J Disk Manual How to run it right! Int. 
(hart shows Cycle. P41. Bal Sheet. Terms ... • $1600 

VVAU CHARTS showing all commands used 

4 explanations for the following programs 

i All are 19x25. 2-colors. easy to read — $S 00 eachi 

SuperSCRIPSIT . MOD J, Profile HI* . VrsrCak . 

Genet al ledger Mod J. Bask Mod ). Bask Mod 4. 

MOD 4 BY JACK — Newest book showing all Mod 4 DOS 
and BASIC operations with many clear examples Replaces 
operators manual in most cases Very clear & extensive 

indexes hx4 in< hes $16.00 

MOD 4 BASIC CHART - 2-color wall « hart shows most 
BASIC M>OSb 1 'operations with examples . $5 00 

INDEXES - Detailed indexes, on heass sto< k, punched 1 
holes, tor the manuals of Profile III*. MOD 4 DISK SYS 

OWNERS MANUAL. SuperSCRIPSIT III (each* $5 00 

MONTHIY NEWSLETTER - Deals mainly with word pro- 
cessing-data base on Mod J.4.100 Mailed 1st class with 

wide range of topics for non-hackers S24 00-V 

- Copyrights of Tandy or VisiCcwp 



Send < ash, c he< k money order to: 

CREST SOFTWARE *m 

2132 ( rests tew. Suite »12.Durdtigo CO 61301 
(3031 247-9S1H 

>. I... ■»*< !■ .-;.'i'.! ■■'. .ill- ' .:•■! = .■■■• •■■;> ' V ■•■■■■- 

(Add $2.00 Shipping — We use UPS) 





•TRS-BO 




NOBEL I-III-IV 




(Software Discounts) 


I. 


Disk Ooeratina Svstees 




DosPlus 3.5 $89.95 




DosPlus IVA.H/Hzil 1129.95 




DosPlus Hard Drivers 129.95 




PIULTIDOS 1.6B 159.95 


1. 


|t)fd Processirco 




HScript $59.95 




Lazv Uriter $115.00 




Electric Webster $129.85 


3. 


Ternnai Conurication 




Ktcri $59.95 






4. 


BBS-80 $69.95 


Assetblv Lanouaae 




H/nl $99.95 


5. 


Accountino Svstei 




Hi croBusi nessSvstei. .. .$300.00 




Aaxi (lanaoer 11 $18«.95 




Haxi Cras <Checksvs)....$89. ! «5 




VersaBusiness Series '.5/$84.95 


4. 


Bible 




T heMORD(Cotplete BibleJ$199.95 




Bible <Tooics)200sbi... .$49.95 


7 


Diskette File holders 88 $10.00 




DESIM S0FTHME 


Toll Free 24 hri l-WO-422-4070 




Illinois Oniv 1-800-942-7317 




Technical Ser (702) 384-9320 




Box 42847 ,.» 




Las Veaas, Nv B9104 


* 


radeiark of the tandv corporation 



Listing continued 



1610 CLS:PRINT"* * * HELP ON COMMANDS * * *" :PRINT" <A>lpha allow 
s cell to contain a non-numeric/formula value" : PRINT" <B>lank cle 
ars cell and deletes any formula used to create it" : PRINT"<C>opy 

makes cell equal to value of a specified cell" 
1620 PRINT"<D>el (ete) formula used to calculate cell but retain 
value" 

1630 PRINT"<G>oto positions cell pointer (cursor) at specified c 
ell":PRINT"<L>oads a previously saved file (designated files 1 t 
hru 9) " :PRINT"<P>rints a copy of all rows of displayed columns" 
1640 PRINT"<Q>uit ends session giving option to save data to one 

of 9 f iles<R>epli (cate) projects/modifies a formula over a seri 
es or cells<S>aves data to one of 9 files" :PRINT" <V>al (ue) estab 
lisnes contents of a cell through keyboard input" 
1650 PRINT" <CLEAR> cancels command/action and returns to spreads 
heet":PRINT"<=> Accesses built-in five function calculator " :PRIN 
T: PRINT" * * * DEPRESS <CLEAR> TO RETURN TO WORKSHEET * * * 

1660 I$=INKEY$:IFI$=""THEN1660ELSEIFIS=CHR$(31)THEN110ELSE1660 

1670 REM LOAD 

1680 PRINT@0,N$;N$; :PRINT@0, "LOAD WHICH FILE? (1-9) "; 

16 90 I$=INKEY$:IFI$=""THEN16 90ELSEIFI$«CHR$(31)THEN190ELSEIFI$<" 
0"ORI$>"9"THEN1690 

1700 C=1:R=1:A$=LEFT$(A$,5) :A$=A$+I$ 

1710 PRINTG64, "LOADING ";A$;" — PLEASE WAIT" ; : IFI $ = "1"THEN1720E 
LSEIFI$="2"THEN17 30ELSEIFI$="3"THEN17 40ELSEIFI$="4"THEN17 50ELSEI 
FI$="5"THENl760ELSEIFI$="6"THENl770ELSEIFI$="7"THENl7 80ELSEIFI$= 
"8"THEN17 90ELSEIFI$="9"THEN1800 

17 20 CLOSE:OPEN"I",2,"FILE1":GOTO1810 
17 30 CLOSE:OPEN"I",2,"FILE2" :GOTO1810 
17 40 CLOSE : OPEN " I", 2, "FILE3": GOTOl 810 
17 50 CLOSE : OPEN " I " , 2 , "FILE4 " : GOTOl 810 
17 60 CLOSE : OPEN " I ", 2, "FILE5": GOTOl 810 
1770 CLOSE:OPEN"I",2,"FILE6":GOTO1810 
1780 CLOSE:OPEN"I" ,2, "FILE7" : GOTOl 810 
17 90 CLOSE : OPEN" I", 2, "FILE8": GOTOl 810 
1800 CLOSE :OPEN"I", 2, "FILE9" :GOTO1810 
1810 INPUTt2,B$(R,C) 

1820 C=C+1:IFC=<HTHEN1810 

1830 C=1:R=R+1:IFR=<UTHEN1810 

1840 CLOSE:GOTO100 

1850 REMPRINT 

1860 PRINT$0,N$;N$; :PRINTg0 f "READY PRINTER — Press <ENTER> or < 

CLEAR> to cancel"; 

1870 I$=INKEY$:IFI$=""THEN1870ELSEIFI$=CHR$(31)THEN190ELSEIFI$=C 

HR$(13)THEN1880ELSE1870 

1880 PRINT@64, "Print <D>isplayed values or <F>ormulas?" ; : I$=INKE 

Y$: IFI$=""THEN1880ELSEIFI$="D"THEN1890ELSEIFIS="F"THEN1920ELSEIF 

I $=CHR$ ( 31) THEN1 90ELSE1 880 

1890 D=1:G=U/13:M=I:I=1:E=1 

1900 IFD>GTHEN1910ELSE120 

1910 E=0:I=M 

1920 PRINT(J64,N$;:PRINT@64, "PRINTING — PLEASE WAIT"; 

1930 S$="% %":R=1:C=J:LPRINTSTRING$(10,35) ;" ";CHR$(C+6 

4);" ";STRING$(12,35) ;" " ;CHR$(C+65) ; " " ;STRING$ ( 12 , 35) ; " ";CHR$ 

(C+66);" ";STRING$(12,35) ;" " ;CHR$ (C+67) ; " " ;STRING$ (7 ,35) 

1940 R$=STR$(R) :T=LEN(R$) :T=3-T 

1950 LPRINTSTRING$(T,32) ;RS;" * "; 

1960 IFI$="D"THEN1980 

1970 LPRINTUSINGS$;B$(R,C) ; :LPRINT" * ";:GOTO1990 

1980 LPRINTUSINGS$;D$(R,C) ; :LPRINT" * "; 

1990 C=C+1:IFC<J+4THEN1960 

2000 LPRINT:R=R+1:C=J:IFR=<UTHEN1940 

2010 LPRINTSTRING$(65,35) : R=K :C=L: GOTO120 

2020 REMQUIT 

2030 PRINTfa0,N$;N$;:PRINTe0,"SAVE CONTENTS — Depress <Y>es to s 

ave or <N>o"; 

2040 I$=INKEY$:IFI$=""THEN2040ELSEIFI$=CHR$(31)THEN190ELSEIFI$=" 

Y"THEN2050ELSEIFI$="N"THEN2230ELSE2040 

2050 PRINT@0,N$;N$; :PRINTf30,"Save as which file? (1-9)"; 

2060 I$=INKEY$:IFI$=""THEN206 0ELSEIFI$=CHR$(31)THEN190ELSEIFI$>" 

0"ANDI$=<"9"THEN207 0ELSE2060 

2070 C=1:R=1:A$=LEFT$(A$,5) :A$=A$+I$ 

2080 PRINTfJ64, "SAVING AS ";A$;" — PLEASE WAIT" ; : IFI$="1"THEN209 

0ELSEIFI$="2"THEN2100ELSEIFI$«"3"THEN2110ELSEIFI$="4"THEN2120ELS 

EIFI$="5"THEN2130ELSEIFIS="6"THEN2140ELSEIFI$="7"THEN2150ELSEIFI 

$="8"THEN2160ELSEIFI$="9"THEN217 

2090 CLOSE:OPEN"O",1,"FILE1":GOTO2180 

2100 CLOSE: OPEN "0",l,"FILE2":G0TO21 80 

2110 CLOSE :0PEN"0",1,"FILE3":G0T021 80 

2120 CLOSE : OPEN "0" , 1 , "FILE4" :GOT021 80 

2130 CLOSE : OPEN "O" ,1 , "FILE5" :GOT021 80 

2140 CLOSE :OPEN"0",l,"FILE6":GOT021 80 

2150 CLOSE :OPEN"0",l,"FILE7":GOT021 80 
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HARDWARE 



MODEL 4 64K MEMORY DISK UPGRADE KIT 

Controller Board, Sound Board, Switching Supply, Tower 
Brackets, Cables, Nameplate & Instruction Manual 
Retails at $299.00 Our Price $1 99.00 



ACCESSORIES & SUPPUES 

BAR CODE READERS 

Hand-held scanners designed to read all common bar 
code formats. Available for the Epson HX-20, the Radio 
Shack Model 1 00 and the NEC Portable $95.95 



ADD ONS: 




PRINTER STANDS Lightweight/Plexiglass 




64K Memory Kit & Button 




Regular 


$26.95 


Retails at $85.00 


Our Price $50.00 


Regular w/Shelf 


40.45 






Large 


31.45 


64K-128K Memory Kit (with PAL & Button) 


Large w/Shelf 


44.95 


Retails at $99.00 


Our Price $60.00 


Large w/Slot 


44.95 






Extra Large 


71.95 


RS 232 HI/4 








Retails at $129.00 


Our Price $79.00 


RIBBON CARTRIDGES for Epson Printers 
MX 80/FX 80/RX 80 




40 Track S/H Drives 




Black, Red, Blue, Green, Brown 


$4.75 


Retails at $199.00 


Our Price $150.00 


MX 100/FX 100/RX 100 




40 Track Thinline D/H Drives 




Black only 


$9.95 


Retails at $299.00 


Our Price $195.00 


3M DISKETTES 




BYTCOM 300/1200 BAUD MODEM 

Retails at $599.00 


Our Price $499.00 


SS/DD5V4" $23.50/10 SS/SD8" 
DS/DD 5V4" 29.50/10 SS/DD 8" 
DS/DD 5V 4 " 39.75/10 DD/DD 8" 


$25.50/10 
31.75/10 
40.95/10 


MICRO FAZER MP-64 
Retails at $299.00 


Our Price $199.00 


XENTECH RAINBOW PACK (10 Assorted Colors) 

SS/DD Rainbow $19.95 






DS/DD Rainbow 


26.95 


SOFTWARE 




*DISA-PERF PAPER 




DOS PLUS 3.5 Model l/lll 




Box of 2550 9V2 x 1 1 sheets, 20# white 


paper, 


Retails at $149.00 


Our Price $79.00 


clean edge 


$34.95 


DOS PLUS 4A with M ZAL 




*NO ZAP II A 




Retails at $169.00 


Our Price $109.00 


Protect your valuable phone & modem equipment from 






surges and/or lightening 


$19.95 


DOS PLUS 4 Epson QX-10 








Retails at $169.00 


Our Price $109.00 


'COMPUTER CARE KIT 








Includes diskette head cleaner, drive cleaning solution, 


MAS 80 The micro-accounting system 


anti-static spray, screen and terminal cleaner, swabs 


Retails at $599.00 


Our Price $399.00 




$19.95 



n Link II TRS-80 Model 4 Communications Software 

Retails at $110.00 Our Price $79.00 



'IDEAL STOCKING STUFFERS 



CALL (800) 645-1 165 FOR COMPLETE LISTING OF OUR CLOSE-OUT SPECIALS 
ALL SPECIALS END JANUARY 15, 1985 




B.T. Enterprises ^ aoo 
10 Carl ough Road 
Bohemia, NY 11716-2996 
(516)567-8155(800)645-1165 

B.T Enterprises is a division of Bi-Tech Enterprises Inc 



All prices above include 2% cash discount 

Credit card customers add 2% to prices 

Add $4 00 shipping & handling on all prepaid orders 

Add $7.00 shipping & handling on CO D orders 

Mastercard/Visa 



See List of Advertisers on Page US 
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TOU COULD BE USING LAZY WRITER 

- NOW ONLY $124.95 ! 

"...the most comprehensive system I have seen to date/or 

the TRS-80 Model I, HI, and 4. If you have ever used a 

professional word processing system that costs at least 

$15,000, like a Wang, you are familiar with its powerful 

features. Now you can have these same features for your 

TRS-80..." 

Baron's Microcomputing Reports 

"I would give Lazy Writer my highest recommendation..." 
Stew Schneider in On-Line Today 

• works with any printer 

• easy to learn used in many schools 

• fast, easy lo-remember editing commands 

• Mod 4 version has 80 character screen 

• powerful features for advanced users 

• good support free user newsletter 

LAZY WRITER FOR MODEL I, III. OR 4 $124.95 




LazyFont creates and prints fonts with an Epson or Prowriter printer Lazy Writer 
version comes with 15 free fonts and many more available BASIC version [fin use by 
itself! comes with 8 free fonts Create your own too! 

LAZYFONT FOR MODEL I, III. OR 4 $49.95 

ELECTRONIC SYMBOL FONT $49.95 

comes with 41 standard schematics, ready to print 

NEW LOW PRICE ON MULTIDOS 1.6 
- ONLY $59.95 

"...every DOS I've tried has either been too slow and weak 
or too complicated and powerful for me to use. I feel surf 
that many other people have this same problem, and 
MULTIDOS is certainly the solution." 
Tim Knight in InfoWorld 

• If you have many disk formats. MULTIDOS is for you: it reads Mod I8HII LDOS, Mod I 
TRSDOS. Mod 1&II1 NEWDOS 80. Mod Iftm DOSPLUS. TRSDOS 6 and DOSPLUS 4; 
writes to Mod Iftlll LDOS. Mod I TRSDOS. Mod IftUI NEWDOS 80. Mod ISIII DOSPLUS. 
TRSDOS 6 and DOSPLUS 4. Utility programs lets you read Model III TRSDOS disks 
and convert the address marks on Mod I TRSDOS disks 

• VFU utility lets you COPY. PURGE, or MOVE files by displaying a directory and letting 
you mark files with the cursor; even copies and moves FROM DATA DISK TO DATA 
DISK with two drives and from one DOS to another' 

■ use multiple commands on one line 

• fastest BACKUP and COPY: use with one or two drives 

• auto density and track recognition: no more PDRIVE hassle 

• on screen HELP with 40 different library commands 

• alphabetized directory 

MULTIDOS' SUPER BASIC ADDS MANY 
ENHANCEMENTS 

• leaves over 40K of memory free 

• combine program lines, delete spaces with packer 

• incorporates BOSS debugging utility 

• intelligent global editor 

• many more features 

• your program displays by page: no more "warp 5" scrolling 

MULTIDOS 1.6 FOR MODEL I OR HI IS ONLY $59.95. 

ZEUS - NEW EDITOR/ASSEMBLER 

FOR THE SERIOUS PROGRAMMER 

"All my code has been converted to Zeus. This is the best 

full feature productivity tool I've seen for serious Z80 

programmers." 

David Welsh, author of Lazy Writer 

• supports undocumented Z80 op codes and standard pseudo-ops 

• really FAST assembly 

• intelligent error display shows line number and file containing error, even when 
you don't print to screen 

• easy line editor won't let you enter incorrect syntax 

• remembers file name of source and object code, eliminates accidental overwrite 

• dynamic renumber: no more "no room between lines'" 

• calculator mode gives answers in decimal, hex. and binary 

• GET command gets files from disk with lightening speed .'handles big files so fast 
you'll think they're small 

• doesn't hog memory lots of room for source code 

• easy block move & duplication 

■ "pages" the screen backward & forward for easy editing 

• reads and writes files in ASCII. EDTASM. and Zeus compressed format 

• Model 4 version supports 80x24 lines 

ZEUS for Model I. III. 4. or MAX-80 $79.95 



„476 AlphaBit Communications, Inc. 

Scall (313) 581-2896 



13349 Michigan Ave. 
Dearborn, Michigan 48126 



N.C.I, 
proudly introduces 

FORESIGHT I 

The multi-divisional 
FINANCIAL SYSTEM 

• Accounts Receivable 

• Accounts Payable 

• General Ledger 

• Up to 8 Divisional Income Statements 

• Consolidated Balance Sheet 

• Aged Analysis Reports 

• Transaction Journals 

• Printed Customer Statements 

• All One On Programme Diskette 

• Runs on Newdos 80 MOD III & 4 

• On Mod 2000 and IBM compatibles soon 

• Your first Balance Sheet Guaranteed 

FORESIGHT I will do all of this and much more 

EASY to read — EASY to set up — RUNS on single or double sided 
drives 

Until now. FORESIGHT I was available only to a select group of 
businesses and accountants for $990 00 It can now be vours for 
AN INCREDIBLE INTRODUCTORY PRICE 
of only $429.00 U.S. 

To take advantage or this offer, order yours todav or ( all or write for more in- 
formation 

Send certified ( heque or monev order in U S funds to 

NAUTILUS COMPUTERS INC. 

2411-117 ST. 

EDMONTON, ALBERTA 

CANADA T6J-3R4 ^3/9 

PH 403-434-3641 



DOUBLES DISKETTE STORAGE SPACE! 

REDUCES DISKETTE COST 50%! 

Now! The back of 5%' Diskettes can be used for 
data storage even with single head disk dnves. 

• KULE99TCM' Tools make it easy. 

• Adds the Precise notch where it's needed. 

• Doubles Diskette Space or Money Back' 




MmULEMWTCHI 

Cuts Square Notch for 
Apple, ll. II t . lie. lie. III. 
Franklin & Commodore 
ly $14.95* each 



m**LEMW€MH 

Cuts Square Notch and % inch round 

"index hole " For use with computers other 

than those shown forflMf MFDl 

only $21 .90* each 



DISK OPTIMIZER SYSTEM 

Software for Apple. II. II . lie. Ill and Franklin 



• Certifies your "new" Disk 100% Error Free 

• 469% FASTER THAN SIMILAR PROGRAMS! 

• Removes Bad Sectors • Adds 36th Track 

• Performs Disk Drive Speed Check 

• Adds DOS and More Qn|y $24.95* 

SPECIAL PACKAGE PRICE 

MKKLE mm* I and DISK OPTIMIZER 

only $29.95 for BOTH * 

*0n ali orders add $2 00 for each item Postage & Handling ($5 00 each foreign P&H) 

^^™ Florida Residents Add 5% Sales Tax ^^~ 

SATISFACTION GUARANTEED OR YOUR MONEY BACK! 



Toll Free 1-800-642-2536 
visa- Florida 305-493-8355 

or send Check or Money Order to: 



XIHBLE lWTCN® COMPUTER HtMMlCTS 

4211 NW 75th TERRACE • DEPT. 2 • LAUDERHILL, FL 33319 
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Listing continual 



216B CLOSE:OPEN"O",1,"FILE8":GOTO2180 

2170 CLOSE :0PEN"0",1,"FILE9" 

2180 PRINT#1,CHR$(34) ;B$(R,C) ;CHRS(34) ; 

2190 C=C+1:IFO<HTHEN2180 

2200 C=1:R*R+1:IFR=<UTHEN2180 

2210 PRINT864,"<R>eturn to spreadsheet or <N>ew spreadsheet or < 

E>xit program?"; 

2220 I$=INKEY$:IFI$=""THEN2220ELSEIFI$="R"THEN190ELSEIFI$="N"THE 

N10ELSEIFI$="E"THEN2230ELSE2220 

2230 CLOSE :CMD"T":CLS: END 

2240 REMREPLICATE 

2250 VS=LEFT$(B$(R.C) ,1) : IFV$<"A"ORV$>CHR$ (U+64) THEN2740 

2260 PRINTS, N$;N$;:PRINTe0, "Replicate formula <D>own or <R>ight 

? "; 

2270 I$=INKEY$:IFI$=""THEN2270ELSEIFI$=CHR$(31)THEN190ELSEIFI$=" 

D"THEN2280ELSEIFI$="R"THEN2420ELSE2270 

2280 PRINTI$; :PRINT@64 , "Type number of rows to replicate down th 

en <ENTER> ";:T$»" 

2290 I$=INKEY$:IFI$=""THEN2290ELSEIFI$=CHR$(31)THEN190ELSEIFI$«C 

HR$(13)THEN2310ELSEIFI$->"0"ANDI$=<"9"THEN2300ELSE2290 

2300 PRINTI$;:TS*T$+I$:GOTO2290 

2310 S$«"0":F=R:S=VAL(T$) :S=S+R: IFS>UTHENS=U 

2320 V$=LEFT$(BS(F,C) ,1) :W$«MID$(B$ (F, C) ,2,2) :W=VAL(W$) :X$=MID$( 

B$(F,C) ,4,1) :W=W+1:IFW>UTHEN2740 

2330 W$«STR$(W) :IFW>9THEN2350 

2340 W$-RIGHT$(W$,1) :W$-S$+W$ 

2350 W$=RIGHT$(W$,2) :F$«V$+W$+X$:Y$=MID$(B$(F,C) ,5,1) :IFY$->"A"A 

NDY$<CHR$(U+65)THEN2370ELSEIFY$=""THEN2410 

2360 Y$=MID$(B$(F,C) ,5) :F$=F$+Y$:GOTO2410 

2370 Z$=HID$(B$(F,C) ,6,2) :Z=VAL(Z$) :Z=Z+1: IFZ>UTHEN2740 

2380 Z$=STR$(Z) :IFZ>9THEN2400 

2390 Z$=RIGHT$(Z$,1) :Z$-S$+Z$ 

2400 Z$=RIGHT$(Z$,2) :F$=F$+Y$+ZS 

2410 F=F+1:B$(F,C)=F$:IFF=STHEN190ELSE2320 

2420 PRINTI$;:PRINT?64,"Type number of columns to replicate righ 

t then <ENTER> ";:T$="" 

2430 I$=INKEY$:IFI$=""THEN2430ELSEIFI$=CHR$(31)THEN190ELSEIFI$=C 

HR$(13)THEN2450ELSEIFI$=>"0"ANDI$»=<"9"THEN2440ELSE2430 

2440 PKINT1$;:T$=T$+I$:GOTO2430 

2450 S$="0":F=C:S=VAL(T$) :S=S+C: IFS>HTHENS=H 

2460 V$=LEFT$(B$(R.F) ,1) : V=ASC( V$) +1 :W$=MID$ (B$ (R,F) ,2,2) :X$-MID 

S(B$(R,F) ,4,1) :IFV-64>HTHEN2740 

2470 F$=CHR$(V) :F$=F$+W$+X$ : Y$=MID$ (B$ (R,F) ,5,1) : IFY$=>"A"ANDY$= 

<CHRS(H+6 5)THEN2490ELSEIFY$=""THEN2510 

2480 Y$=MID$(B$(R,F) ,5) :F$=F$+Y$:GOTO2510 

2490 Z$-MID$(B$(R.F) ,6,2) :Y=ASC(Y$) +1 : IFY-64>HTHEN2740 

2500 Y$=CHR$(Y) :F$=F$+Y$+Z$ 

2510 F=F+1:B$(R,F)=F$:IFF«STHEN190ELSE2460 

2520 REM VALUE 

2530 PRINTS. N$;N$; : PRINT&0, "Type value or formula then depress 

<ENTER>"; : PRINT§64 ,L$; :T$="" 

2540 I$=INKEY$:IFI$=""THEN2540ELSEIFI$=CHR$(13)THEN2560ELSEIFI$« 

CHR$(31)THEN190ELSEIFI$=CHR$(34)THEN2540ELSEIFI$=CHR$(91)ORI$>CH 

R$(7)ANDI$<CHR$(11)THEN2730 

2550 T$=T$+I$:PRINTI$; :GOTO2540 

2560 B$(R,C)=T$:GOTO190 

2570 REM (•=) CALCULATOR 

2580 T#-VAL(B$(R,C)) : PRINT80 ,N$;N$; : PRINT§0 , "Start with <C>ell v 

alue (";T#;") or <Z>ero?" 

25 90 I$=INKEY$:IFI$=""THEN2590ELSEIFI$="C"THEN2620ELSEIFI$="Z"TH 
EN2600ELSEIFI$=CHR$(31)THEN190ELSE2590 

2600 T#=0:F#=0 

2610 F$="" 

2620 PRINT@0,N$;N$; :PRINT@0, "SUBTOTAL = " ;T# ;: PRINT§64 , "ENTER VA 

LUE: "; 

2630 I$=INKEY$:IFI$=""THEN2630ELSEIFI$=CHR$(31)THEN190ELSEIFI$«> 

"0"ANDI$=<"9"THEN26 40ELSEIFI$*"+"THEN2650ELSEIFI$-"-"THEN2660ELS 

EIFI$="*"THEN2670ELSEIFI$="/"THEN26 80ELSEIFI$="="THEN2700ELSE263 



2640 PRINTI$; :F$=F$+I$:GOTO2630 

2650 F#=VAL(F$) :T#=T#+F#:GOTO2610 

2660 F#=VAL(F$) :T#=T#-F#:GOTO2610 

2670 F»-VAL(F$) :T#=T#*F#:GOTO2610 

2680 F#=VAL(F$) :IFF#=0THEN2630 

26 90 TMT#/F#:GOTO2610 
2700 IFT#<0THEN2720 

2710 F$»STR$(T#) :B$(R,C)=MID$(F$,2) :GOTO190 

2720 B$(R,C)=STR$(T#) :GOTO190 

2730 B$(R,C)=T$:PRINTe0, "RAPID ENTRY (Press </> for commands <CL 

EAR> updates) " ; :PRINTgB+l,STRING$(13,32) ; :PRINTgB+2,LEFT$(B$(R,C 

) ,12) ;:GOTO7 80 

2740 PRINT864,N$; : PRINT364 , "* * * ENTRY ERROR * * *" ; : F0RD=1T015 

00:NEXT:GOTO190 
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Master 

Handicapper 



3ff 



EVALUATES FROM RACING FORM! 



• :• 


Genoe' 




.'ass 


Jockey (Today) 


Post lLasil 


Con till-on 


joc«ey ilasti 


Speed 


Consistency 


length 


Trainer 


.arnmqs 


T.mf o' Vca' 


WO'kOUlS 




GRAPHIC REPRFSFNTATlON ol finish 



PROGRAM 
GLD. Thoroughbred "Gold" Edition™ 



^W 



A "Full ' featured Iho'ouqhbred analys 



i designed 'or the protfl 
$159.95 compie 



EGLD Enhanced Gold Edition™ 

Gold Ediiion with complete Master Bettor™ system integrated 
onto tne same disk This powerful program will transfer all horses 
and scores to the bet analysts with a single keystroke 

(Master Bettor TM included) $199.95 complete 

GLTD. Limited Gold"™ 

FnaC'es Professional Hsndicappcrs 10 assign specific values to the 
racing variables they feel are important 

PROFESSIONAL HANDICAPPING SYSTEMS 
% % •» 



Age 5 

Class 15 

Condition 10 


C 


wisislency 
Jockey 15 
Tiamer b 


• 


Speed 

Workout 

Time ol Y 


Earnings 5 




Post 10 
Is Eve 


Tytninc 


Cons, si en 
OK IY/NI 



Create program weight based on a particular track and far* lu 
'or maximum win percentage This program is designed tor 
of use The user needs no programming experience 

[contains integrated Bettor TM] $299.95 com, 



GD. Gold Dog Analysis™ 

The only professional dog handicapper on the market 



1 ) Speed 


61 Condition 


2) Posi Today 


7) Running Style 


3| Kennel 


Bl Weigh! 


4i Posi i_asi 


91 All new internal weighting 


5| Ostance 


t0) NEW class indicator 


It you are near 


a greyhound track you can r afford not to use rhis 


program 


$149.95 complete 




(with integrated Master BettorTM, $199.95 



MHH. Master Harness Handicapper™ _ 

Professional software designed to provide a thorough anaiys 



&K 



trotter and pacer rac 


ss in North America and Canada Features 


Class 


Post Positions Time Finish 


Driver 


Track Conditions Time Last Quarter 


Days Since Last 


Trail ier Track Rating 


Gender 


T me ' Temp Allowance 


$159.95 complete 


w/miegrated Master Bettor™ $199 95 



PPX. Professor Jones Football Predictor. Prof. Pix™ 

Complete Football Analysis with Data-Base 

I) Overlays 4| Over/Under t> 

2i Point Spreads 5| Data Base Stats 

3) Super Plays 61 Holds 100 lea 

Highest percentage ol winners 1983 $39.95 Cut 

$99.95 a tr Data Base Ma 



r, Kroi. Ki»' 



't.Hlf'i*. 



S$ 



MB. Master Bettor™ 



A compliment to ALL Master Handicapper programs includes 
1 1 Win/Place/ Show 4) Tnlecta 7) Money Management 

2) Oumelia 5) Pik Six 81 Odds Analysis 

31 Eiacta 6) Daily Double 91 and Much More 

A perlect program designed to use results from all Master Programs 
to generate best bet jcg gc 



Model 100 Portable Systems 

TPlThoroughbred/Pace^M 124K1 
DGt -Master Dog AnalysisTM (24K| 



npie'e 



$99.95 complete 
$99.95 complete 



LNW Computers 

Call for Lowest Prices 



Send check / money order / VISA / MasterCard 
(Include expiration date) to _ 

Prof. Jones 



B 

TELEPHONE 
(208) 342-6939 



1114 N. 24th St. 
Boise, ID 83702 



TERMS: FREE SHIPPING ALL SOFTWARE 
Add $6.00 hardware / CO D Add $6.00 / Add 3 
weeks personal checks / Add 4.5% ID residents / 
Add $6.00 outside USA / Prices subject to change 

NOREFUNDSON SOFTWARE 



BROCHURE AVAILABLE 



See List of Advertisers on Page 145 
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DISK DRIVES 
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DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES 



PRICE BREAKTHROUGH 



DISK DRIVES 
D 

D 

< 

m 



1 
| 



Super Sale on New Hard Drives 

Introducing 

MEGADISK 



2 




TM 



Winchester Hard Drive ready to 

run on the TRS 80 Model I/III/IV/4P, 

Color Computer. I.B.M.-PC, Apple. 

Franklin, Max/80. 

Software Drivers: LDOS, NewDos/80, 

Dosplus, TRSDOS 6.0, CP/M 

CALL LOR MW LOW PRK I 

DRIVE A HARD BARGAIN" Complete Systems Starting at S999^iL 



Warranty - One Full Year 



Call Toll Free Ordering 1-800-343-8841 




High Quality Lowest Price 

Drive 0, 1, 2, 3 

for the 

Color Computer 

Starting at S1&*#T 




Disk Drive Upgrade 

for Model III IV easy to install system 
Starting at $J0*95 



CALL FOR NF.W 
LOW PRICE 



CALL FOR NEW 
LOW PRICE 



Ldgell Road. Framingham. MA 01701 (617) 872 9090 Telex 383425 

Houn Mim ihru I 9 30 a I « 30 pm if. S T I Sal I ■<> pm 



CANADA 
MICRO R.G.S. INC. 

"51. CARRE \ ICTORIA. ^LITE -u»? 

MONTREAL. QLEBEC. CANADA, H2Y 2J3 

Reeular Tel. <514> 287-1563 

Canadian Toll Free 800-361-5155 



Service! Service! 

.4// in stock products are shipped 
within 24 hours at order 

Repair/ Warrant) service is perft rmi i 

within JJ hours o) receipt unless 
otherwise noted. We accept CO D . 
'nremn and APO order-, s. hooi 
and D&B corporate P.O.s 



V) 

X 

o 
< 

m 



in 

O 

< 

m 



V) 

D 
33 

< 
m 



D 

< 

m 



o 

V) 

o 

< 

m 
(ft 



O 

< 
m 



- SOFTWARE SUPPORT, INC. 

> 

s 

g DEALER INQUIRIES INVITED. 

Q TERMS: 

M (' Visa \mex and pergonal 

shecks accepted ai no extra charge. 
CO COD . please add $3.00. 

^ Shipping: Please call for amount 

j Not responsible for typographical errors 

Q Prices >ubiect •>> change. 

^ TRS 80 Registered Trademark Tands ( orn -\pple Registered Trademark Apple Computer Corp 

(0 IBM-PC Registered IBM Corp. Franklin Registered Trademark Franklin Corp. Max SO Registered Trademark Lobo I 

5 I DOS Reu Logical S\ stem l nc Dosplus - Micro Systems Software \ewdos 80- \pparat I 

S3AIMQ XSIQ SBAIUCJ MSIfJ S3AIUQ XSIQ S3AIHQ MSIQ SaAlUa MSIQ S3AIHQ MSIQ S3AIHQ xsia 
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DISK DRIVES 
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DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES 
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PRICE BREAKTHROUGH 



DISK DRIVES 
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Super Sale on New Disk Drives 



CALL I OR \h\S 
NhVV I OW PRICE 



QC 
B 
* 
I 

Q 



Starting at $169,001 

Tandon — Siemens — Remex — MPI — Teac — Shugart 

40 or 80 Tracks — Single or Dual Head 

IBM/PC — TRS/80 — Sanyo Computers $Call 

Drive a Hard Bargain !! For your TRS/80, Color Computer, IBM. Apple, Franklin, 

Max/80, Complete Systems §eomJ999M' c ^S^i m 

PLEASE CALL FOR OUR MOST CURRENT PRICE REDUCTIONS 



TOLL FREE ORDERING 
1-800-343-8841 



GENERAL AND TECHNICAL 

1-617-872-9090 



Disk Drives (0123) TRS/80-IBM-Apple-TI-Franklin-Max/80-LNW M CALL 

Model I III IV Upgrade (Disk Dn\cs Memory) -«• 

Printers- Daisywheel/Dot Matrix - 

Double Density Controller ( Model I) « 

Color Computer Printer Interfaces - 

Disk Drive Operating Systems 

Repair Services Now Offered FAST Turn a-Round 

Apple/Franklin Compatible Add-On Drives with Case & Cable «. 

Diskettes — Lifetime Guarantee — Low- Low Prices « 

DISK DRIVE CASES AND POWER SUPPLIES (5 year warranty) 

Printer Buffers 8K to 5I2K starting at $143.95 

Model I/III/IV Speed-up Mod starting at $75.00 

Cables— Printer/Disk Drive starting at $16.00 

Warranty on Disk Drives — I Full Year Parts and Labor 

SOFTWARE SUPPORT, INC. 



TOLL 

FREE 

FOR 

NEW 
PRICES 
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Ldgell Road. Framingham. MA 0170! 

hours Mim Ihn, I n ■> *'l lim l<i S <0 pm il 



(6 

S I I 



7) 



872-9090 

III .101 In I Kl 



Tefex-383425 



DEALER INQUIRIES INVITED. 



Hi 



CANADA 
MICRO R.G.S. INC. 

'51. CARRE VICTORIA. SUITE 403 
MONTREAL. QUEBEC C \NADA. H2Y :JJ 

Rezular Td. (514) 287-1563 
Canadian Toil Free 800-361-5155 



TERMS; 

M.C. Vjsa/Amex and personal 

checks accepted ai no extra charge. 

C.O.D.. please add S3.0O. 

Shipping: Please call for amount. 
3 Not responsible for typographical errors. 

q Prices subject to change. 

sg TRS.-80 Registered Trademark randy Corp. Apple Registered Trademark Apple Computer Corp 

CO IBM-PC Registered IBM Corp. Franklin Registered Trademark Franklin Corp. Max 80 Registered Trademark Lobo Int 

S LDOS Reg. Logical System Inc. Dosplus • Micro Systems Software Newdos/80 - Apparat Inc. (p 

S3AIHQ XSIQ S3AIHQ MSia S3AIHO HSIO S3AIUO MSIQ S3AIUQ HSIQ S3AIHQ MSia S3AIUQ xsia 



Service! Service! 
All in stock products are shipped 
■within 24 hours of order. 
Repair / Warram\ service is performed 
within 24 hours of receipt unless 
otherwise noted. Wt accept COD., 
foreign and APO orders. School 
and DAB corporate P O.s accepted. 
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GREAT IDEAS 
IN A DISK 





GREAT IDEAS 
IN A CASSETTE 



NOW, you can load the major programs from 80 MICRO — automatically. 



LOAD 80 is a collection of the major programs from each 
issue of 80 MICRO including: tutorials. . .utilities. . .games 
...home-hobby applications ... word processing programs... 
and more. Each program is on a formatted disk or cassette 
and ready to run. . .saving you hours of key-in time. And 
Model III users can now run LOAD 80 automatically — our 
new disk transfer system eliminates conversions. 

For less than $2.00 per program LOAD 80 gives you a 
library of over 100 quality programs in just 12 months— de- 
livered to your home each month 

Plus, a year's subscription to LOAD 80 saves you nearly 
30% off the single disk or cassette price — that's enough for a 
year's subscription to 80 MICRO. 

Your LOAD 80 comes complete with user support. Just 
call 1-603-924-9471 any business day and you'll receive prompt 
assistance from our LOAD 80 staff and the 80 MICRO 
Technical Editors. 

To get your time-saving subscription or monthly issue of 
LOAD 80 call toll free 1-800-258-5473 (in New Hampshire 
dial 1-924-9471). Or fill out this coupon and send it in today. 



YES! Save me time. Save me money with LOAD 80. 

D Send me a vear of LOAD 80 on disk for 

$19.97. 
1 I Send me a year of LOAD 80 on cassette 

for S99.97. 
f] Send me this month's LOAD 80 disk for 

$21.97. 
J Send me this month's LOAD 80 on cassette 

for only $11.47. 

Prices include postage and handling. 
Foreign airmail please add 45 cents per item 
or $25.00 per subscription. U.S. funds drawn 
on U.S. bank only. 




] Check /MO □ MC 
Card* 


□ Visa 


D AE 

Exn. Date 








City 








State Zip 








) 






' 




L8M)1 


LOAD 80 


(• 


— • 


SO Pine Street • Peterborough. NH 0.VIM 




Please allow 6-8 
weeks for 
delivery 



Let us know 8 weeks in advance so that you won't 
miss a single issue of 80 Micro. Attach old label 
where indicated and print new address in 
space provided. Also include your 
mailing label whenever you 
write concerning your sub- 
scription. It helps us 

serve you promptly. _ 

Extend 
my sub- 
scription one 
additional year for 
only $24.97. 
□ Payment enclosed 
." : Bill me 

Canadian and Mexican $27.97 i year only. US tunds 

i on US bank. Foreign surface $44.97 1 year only US 

funds drawn on US bank. Please allow 6-8 weeks for delivery. 

If you have no label handy, print OLD address here. 

"-J Name 

m 

^ Address 

C City. 

u. 

< Print NEW address here. 

Name 




■££■ 



DISKETTES 

FREE SHIPPING 

ON ORDERS OF S40.00 OR MORE 

1-800-334-DISK 

(617) 839-4404 MASS. RES. 




i?atv 




State Zip. 



Address _ 
City 



State Zip. 

imicro. 

PO Box 981 • Farmingdale, NY 11737 



DISK TYPE 

PRICES PER EACH 
10 PER BOX 



C1A-„ s 



Del -Den 



K1/j" Or.l-S.dP 
U /4 Dol-Den. 



5Vd" Revers ' b '" 



Dbi -Deo 



#740 «72 



#745 »2« 



maxell 



#MD1 $ 21? 



#MD2 $ 2I? 



OMNI " #5321 »2S 



AMARAY» DISK FILE • ffiiE 50 $ 15- 



m 



HIGH QUALITY 
LOW PRICE 



#MI3A *\* 



#MI4A $ 2JJ 



Sino.-0an. Si » 

#MIIA " 



PRINTER PAPER * 540 Sheets * KEEN-EDGE * $ Q - 



6 Outlet 

Surge Suppressor 



24!? 



HEAD CLEANING KITS 



•105 



QUANT'.IY 



STOCK • DESCRIPTION 



PRICE 



S &M I TAX 



□ VISA □ Mastercard □ MONEY ORDER □ CHECK 6NCL0SE0 LI COD (Add $1 85) 

□ SEND FREE BROCHURES 



Card No 

Name 

Address 

Cty 

Phone. 



Exp Date 



State 



Zip. 



Add $2.00 Shipping & Handling on orders less than $40.00 Mass. Residents add 5% tax. 



^fc 



GNET1CS, INC. 

153 MAIN STREET / P.O. BOX 98 
SOUTH GRAFTON. MA 01560 



'218 



School 4 Municipal P.O's welcome 1 

Free shipping applies to prepaid and credit card orders only 

Hours 9 am 7 pm Mon - Fn Eastern Standard Time - Sat 9 am 3 pm 



NEW And IMPROVED 
CP/M-68K 

Treat your TRS-80 Model- 16 or Enhanced Model-ll or -12 to our new 
Version 1.2 CP/M-68K, now with: 

• Keyboard Type a head • Overlay loader 

• C compiler with standard • New utilities 
and IEEE floating point • 68000 assembler 

Option languages* — CBASIC-68K, PASCAL MT+, FORTRAN-77, 
PASCAL-68K, BASIC-68K 

Version 1.1 users; order a language and receive your version 1.2 up- 
grade FREE. Upgrade alone only $25. 



Trisoft 

4102 Avenue G 
Austin, Texas 78751 
(512)453-2233 



VtSA* 



•Requires 256 kbytes minimum except for BASIC-68K 



Masteruara 



■ :r 



See List of Advert/sirs on Page »«5 
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UTILITY 



by Glen E. Sparks 



Picture Perfect 



Here's a complete graphics production package— you get the worksheet 
on which to design your graphics, an easy-to-use coding system to pro- 
gram a dot-matrix print head, and a number of printout options. 



While you're probably not 
disappointed with the LP/ 
DMP printers from Radio 
Shack, you might be a little jealous of 
the graphics capability of the Epson 
printers. It seems like all the good print- 
er graphics programs run on the Ep- 
sons. But now you can get better and 
more interesting graphics from your 
Radio Shack printer by using the graph- 
ics technique I've developed. 

Bask Concepts 

Program Listing 1 prints out work- 
sheets that let you design and map 
graphics characters of varying sizes (see 
Fig. 1). First type in, save, and run List- 
ing 1. Once you start experimenting 
with your own graphics, you'll need a 
lot of these worksheets. 

The seven numbers (1, 2, 4, 8, 16, 32, 
and 64) in the worksheet's left-hand col- 
umn represent the seven controllable 
print-head wires that, when activated in 
a specific pattern, create a variety of 
graphics characters. The print-head 
pins are numbered this way so that you 
get a unique sum, in the range of 1-127, 
for any combination of pins. For exam- 
ple, while the sum of all seven numbers 
is 127, every combination of the num- 
bers yields a different sum. 

The following program prints each of 
the available TRS-80 graphics charac- 
ters in a line without gaps. Because of 
this, you can develop custom graphics 
characters, made up of individual stan- 
dard graphics characters, of any length. 
The CHR$(30) in line 50 of the program 
below resets the printer, removing it 
from the graphics mode. Now, type in 
and run this program: 

10 LPRINT CHR$(18) 'set printer to graphics 
mode 

20 FORI = 128 TO 255 

30 LPRINT CHR$(I); 

40 NEXTI 

50 LPRINT CHR$(30) 'set printer to non-graph- 
ics mode 
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AtCDEFGHIJKinNOPQRS 




* ' • ' • ' 


' #'•'•'• ' '•'•'•' '•' 


8 I « . . . i« 10 , # , 


16 '•'•'• ' ' • ■ ' • ' • ' • ' 


32 ' • ' > • • ' • ' « ' • 


•* ' • •'•<•' ' • > 


totals ' O 96 16 16 24 i 6 125 69 125 1 5 63 ' 5 I 1 127 




»ICDEFtBlJkinN0P««S 


I I 9 I # I .,, !«.., 




1 • ' '•'•' •'•'•'• '•'•' 


8 • # 10 1 * 9 . , 


M ••' ' ' ' ' ' '•' ' ' • ' 


32 ' ' • ' * ' ' 1 « # • i # ■ • • • I 


M i . i « . • •' 


totals i 3 i 3| . 34 i 76 34 30 4 


4 ' 4 4 30 34 1 76 34 30 ' 7 i O ' 

HIJKLHNOPQRS 


A 1 C D £ F 6 


' 


■ 


1 l l i l 1 1 r 


' ' ' ' 


« 1 i l 1 l i l 


, ■ , , , , , 


8 


, , , 


16 li 





32 1 i i i I i ■ 





64 i i i I i i 
TOTALS i i I i i I i 

imHIHIIHt(HtlH)MIHIHHIH>mU»IUi<IIHI 

Figure 1. 


»HHHIHtmHII»llt»»tllt»HHH»HHttH*IHtlHlt»tHH»HHtll»HHM 

Worksheet and drawing. 



Custom Printing 

The graphics characters printed here 
probably look familiar, especially if 
you've ever shopped for a printer. Be 
more creative now and try your skill at 
customized graphics. 

Using a soft lead pencil, put dots in 
each box of column A of the worksheet 
you created with Program Listing 1. In 



The Key Box 



L0ADM 



Models I, ffl and 4 

16KRAM 

Basic 

Radio Shack LP or DMP printer 



From Computer Plus to YOU . . . 
PLUS after PLUS a«e, PLUS 



I 



■••••■•I 

mm »«•«■» * * a --i 



8*11, 



Model 100 8K $495 
Model 100 24K $625 




Color Computer II 
w/16K Ext Basic $135 
W/64K Ext Basic $195 




Model 4 16K $629 

Model 4 64K 

2 Disk & RS232 $1020 




•-•; 




Color Computer Disk Drive 
Drive $289 Drive 1 $220 
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*mm_. wmn 


Mtk\ 


DWP210 $489 
DWP510 $1295 



BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 



COMPUTERS 




PRINTERS 




Model HI/4 Drive 2 


259 


Model 4 Portable 




Silver Reed EXP500 D.W. 


365 


Model III/4 Drive 3 


220 


64K 2 Drives 


1020 


Silver Reed EXP550 D.W. 


430 


Hard Disk M2000 


1525 


Pocket Computer 3 


89 


DWP410 


1159 


ETC. 




Pocket Computer 4 


59 


Gemini Powertype 


345 


CCR-81 Recorder 


52 


Model 2000 2 Drive 


2299 


CGP115 


159 


Cassette Tapes (10 Pk) 


9.95 


Model 2000 W/Hard Disk 


3599 


CGP220 Ink Jet 


545 


16K Ram Chips 


25 


Model 12 64K 1 Drive 


2360 


DMP110 


299 


64K Ram Chips 


62.95 


Model 12 64K 2 Drive 


2950 


DMP420 


735 


Model 4 64K Upgrade Kit 


79.95 


Model 16B 1Dr 256K 


3375 


Toshiba 1340 (24 wire head) 


779 


M100 Bar Code Reader 


89 


Model 16B 2Dr 256K 


3965 


Gemini 10X 


265 


64K Printer Buffer 


199 


MODEMS 




Gemini 15X 


409 


Printer Stand 


25 


Hayes Smartmodem II 


215 


Panasonic P1091 


315 


Printer Cables 




Hayes Smartmodem 1200 


505 


Smith Corona Fastext 


190 


Printer Ribbons 




Novation Smartcat 1200 


410 


Prowriter 8510 


345 


Printer Paper 




Novation J-Cat 


115 


Okidata 


CALL 


Computer Books 




AC-3 


125 


Epson 


CALL 






DC Modem I 


89 


DISK DRIVES 




Radio Shack software 10% off 




DC Modem II 


160 


Model III/4 Drive 


465 


Send for complete listing of 




DC Modem 2212 


315 


Model III 4 Drive 1 


220 


brand name software and hardware. 



CALL TOLL FREE 
1-800-143-8124 

• LOWEST POSSIBLE PRICES 

• BEST POSSIBLE WARRANTY 

• KNOWLEDGEABLE SALES STAFF 

• TIMELY DELIVERY 

• SHOPPING CONVENIENCE 

VKA 



com 




P.O. Box 1094 
480 King Street 
Littleton, MA 01460 



SINCE 1973 



IN MASSACHUSETTS CALL (617) 486-3193 



TRS-80 is a registered trademark of Tandy Corp 
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Figure 2. Printout of drawing in Figure I. 







Program Listing I. Bask program to create worksheets. 




100 ' GRAPH PAPER FOR CHARGEN/GS1 AND GS2 




110 ' SAVED AT GRAPAPER/FRM 




12V CLEAR1000 




130 LPRINTCHRS(27) ;CHR$(20) 'set to condensed mode 




140 CLS 




145 PRINT"SET PAPER IN PRINTER AT TOP OF NEW SHEET" 




147 PRINT: PRINT"HIT ANY KEY TO START PRINTING" 




150 IP INKEY$-"THEN 150 




160 FOR FS-1T03 ' loop to set number of forms 




170 LPRINTSTRING$(130,"*") 




175 GOSUB1000 




180 B-0 




190 F0RI«=1T08 




200 LPRINT" " 




210 IFK8THENGOSUB290 ELSE GOSUB440 




220 GOSUB390 'subroutine to put in pin numbers 




230 GOSUB310 'lprint column seperating bar 




240 NEXTI 




250 LPRINT" " 




260 LPRINTSTRING$(130,"*") 




270 NEXT FS 




280 END 




290 LPRINTSTRING$(130,"-") 




300 RETURN 




310 FORI3-1T019 




320 LPRINTTAB(10) ; 




330 LPRINTCHR$(18) j 'go into graphics mode 




340 LPRINTCHR$(191) ; 'lprint graphic bar 




350 LPRINTCHR$(30) ; 'come out of graphics mode 




360 LPRINT" "; ' six blank spaces 




370 NEXTI3 




3 80 RETURN 




390 'SUBROUTINE TO PUT IN NUMBERS 




400 A«2[B 




410 B-B+l 




420 IFA>64 THENLPRINT" TOTALS" ;:ELSELPRINTA > 




430 RETURN 




440 'SUBROUTINE TO PRINT TOTAL LINE 




450 LPRINTSTRING$(130,"«") 




460 RETURN 




1000 CL-65 




1005 LPRINTTAB(13) ; 




1010 LPRINTCHRS(CL) ; 




1015 LPRINT" "; 




1020 IF CL-83 THEN 1050 




1030 CL=CL+1 




1040 GOTO1010 




1050 RETURN 






End 



Program Listing 2. Basic program to enter one-line graphics. 

100 '***************************************************** 

110 ' CHARGEN/GS1 

Ijg . ft***************************************************** 

130 CLS 

144 PRINT'USE GRAPAPER/FRM PROGRAM TO PLOT A SEQUENCE OF PIN FIRINGS" 
154 PRINT'THEN ENTER THE TOTAL OF EACH COLUMN IN RESPONSE TO THE P 
ROMPTS . " 

1*0 PRINT '.PRINT "THE PROGRAM WILL ADD 128 TO EACH TOTAL TO GENERATE 
PRINTER" 

Listing 2 continued 



columns B-F put a dot in the top and 
bottom row only (pin numbers 1 and 
64). In column G, put dots from top to 
bottom again. Now add the values of 
each column: 127 for A, 65 for B, 65 for 
C, 65 for D, 65 for E, 65 for F, and 127 
forG. 

When you run Program Listing 2, it 
prompts you to type in the totals for 
each column. After you enter the num- 
bers, type in 999 to terminate data en- 
try. Your printer should be on, and it 
will print the following: a tiny box, the 
pin firing codes (the column values), 
and a three-line series of the character in 
different font sizes (elongated, normal, 
and condensed). 

Notice that all the boxes are con- 
nected; to print a series of individual 
boxes, enter a zero before typing in 999. 
Keep in mind that the program auto- 
matically adds 128 to the pin codes be- 
cause the printer requires that all char- 
acter codes be in a range of 128 to 255. 

Try experimenting with different 
drawings or simply enter a series of 
numbers; for example, entering 10 
numbers at intervals of 5 (don't forget 
to type 999) makes a nice line of graph- 
ics. This type of graphic can be used in a 
subroutine to separate reports, or as a 
more interesting alternative to asterisks. 

Larger Graphics 

Single line graphics are nice, but 
somewhat limited. Program Listing 3, 
while operating on the same concept as 
Program Listing 2, lets you print graph- 
ics that are twice as high. When map- 
ping out the larger characters, split the 
character between two worksheets and 
calculate column totals for each. After 
tabulating the totals, run Program List- 
ing 3, which, in turn, prompts you to 
enter these values. 

Remember to enter zeros in the blank 
columns to guarantee alignment. The 
drawing in Fig. 1 and the corresponding 
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Figure 3. Graphics lines created by Program Listings 4 (top line), 5 and 6 (middle line), and 7 (bottom line). 



You can expand 

this technique 

to print graphics 

for all purposes. 



printout in Fig. 2 are examples of this 
size character. (The subroutine in Pro- 
gram Listing 7 is also geared towards 
the larger graphics characters.) 

The subroutines in Program Listings 
4-7 illustrate the variety of ways to store 
and print graphics codes. Program List- 
ing 4, for example, uses CHR$ code 
links stored in strings to print a line of 
graphics characters. I used A$ and Al$ 
only because I didn't want to print off 
the page when listing the program. 
Your strings can be much longer if you 
choose. 

Because this particular character is 
good only when printed in a line, I used 
a For. . . Next loop to fill the page from 
left to right. The string method used 
here is quite fast, especially when com- 
pared with the subroutines in Program 
Listings 5 and 6. 

Program Listings 5 and 6 both use 
Read Data statements. While one is 
quicker than the other, they're both 
slow. I've included these because it's 
easier to change data statements in each 
graphics subroutine than to retype the 
CHR$ codes. If time isn't critical, this 
method makes it easy to build a library 
of subroutines. 

You can easily expand the technique 
discussed here to print graphics of all 
sizes for all purposes. Playing with 
combinations of column values is both 
fun and productive. Happy printing! ■ 



Write to Glen E. Sparks at 6186 
Custer, S. Rockwood, MI 48179. 



Listing 2 continued 

170 PRINT-GRAPHICS IN A LINE USING EACH TO THE FONTS AVAILABLE TO 

GRAPHICS" 

180 PRINT"IT WILL ALSO PRINT OUT THE COLUMN TOTALS FOR REFERENCE." 

185 PRINT: PRINT"TYPE 999 TO END INPUT" 

190 PRINT:PRINT"HIT ANY KEY TO BEGIN" 

200 PRINT:PRINT:PRINT 

210 IF lNKEx$=""THEN210 

220 CLS 

230 CLEAR500 

240 DIMN{50) 

250 Z«l 

26 ' ************************************ 

270 ' INPUT CODES 

2 80 ' ************************************* 

290 CLS 

300 1-1 

305 CL=65 

310 PRINT"PIN COLUMN ";CHR$(CL);" "; 

315 INPUT N(I) 

320 IFN(I)=999 THEN 370 

330 IFN(I)>127 THENPRINT"TOO HIGH-MUST BE UNDER 127":GOTO310 

350 1=1+1 

355 CL-CL+1 

360 GOTO310 

i ************************************* 



370 
3 80 
390 



SEND TO PRINTER 
a************************************ 

400 T»I 

410 FORI=1TOT 

415 IFN(I)-999 THEN N(I)»0 

420 A$«CHR$(N(I)+128) 

430 LPRINT CHR$(18);A$; ' put into graphics mode and lprint CHR$ 

440 NEXTI 

450 LPRINTCHR$(30) 'set to non-graphic text 

460 LPRINTCHR$(27) ;CHR5(20) 'set to condensed for code number prin 

tout 

470 FORI=lTO(T-l) :LPRINTN(I) ;:LPRINT" "; 

4 80 NEXTI 

4 90 ' ************************************* 

500 ' SEND LINE OF CUSTOM CHARACTERS TO PRINTER 

530 ' SET CHARACTER FONT FOR LINE OF CUST. CHAR 

540 ' ********************************************************** 

560 CLS 

570 IFZ>1THENLPRINTCHR$(27) ;CHR$(15) 'get out of Expanded mode 

580 ONZ GOTO 590 ,610 ,630 ,650 

590 LPRINT CHR$(27) ;CHR$(14) 'expanded mode 

600 GOTO670 

610 LPRINTCHR$(27) ;CHR$(19) 'normal characters 

620 GOTO670 

630 LPRINTCHR$(27);CHR$(20) 'condensed mode 

640 GOTO670 

650 RUN240 

559 • a****************************************** 

670 ' PRINTOUT OF CHAR REPEATED 20 TIMES 

57^ i ******************************************* 

680 FORI1-1TO20 

690 FORI-lTO(T-l) 

700 A$=CHR$(N(I) +128) 'add 128 to pin number to produce CHR$ code 

710 LPRINTCHR$(18) ;A$; 'go into graphics mode and print char 

720 NEXTI :NEXTI1 

730 LPRINTCHR$(30) 'get out of graphics mode 

740 Z-Z+l 

750 GOTO 570 /„ 
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YES WE DO WINDOWS SO CAN YOU 



Windowpad an wtergrated win- 
dowing and note processing utility 
is ready for your TRS-80 Model I 
III 1 11/4 Windowpad runs along 
with your application program or 
standalone Just $21 25 Post- 
paid Send Check or Money Order 
to EN Fleur Corp. 2494 Sun Valley 
Cir Silver Spring MD 20906 - 350 
1Q [MP Residents Add 5S3 Tax] gj 



SEND AND RECEIVE 

MORSE CODE 

•TRIPLE SPLIT SCREEN 
•SPEED: 1-200 WPM 



This 4.5k assembly language program runs 
on your TRS-80"Model I, III. or 4. The 
decoded Morse Code is displayed on the 
screen and may be printed. The keyboard 
butter is active while either sending or 
receiving. The output is either tone or keyed. 
I/O is via the cassette interface. The pro- 
gram runs from tape or disk (TRSDOS 2.3 or 
1 .3). Use it "on-the-air" or for code practice. 

satislaction guaranteed or your money back 
Cassette with booklet only $19.95 postpaid. 



ROGO Computer Products 

4752 DeBeers Drive 
El Paso. Texas 79924 



• 343 



wabash 

When it comes to 

Flexible Disks, nobody 

does it better than 

Wabash. 

MasterCard. Visa Accepted 
Call Free: (800)235-4137 




PACIFIC 
EXCHANGES 

100 Foothill Blvd 
San Luis Obispo. CA 
93401 (In Cat call 
(8051 543-1037 



Program Listing 3. Bask program to enter two- line graphics. 

100 ■ ***************************************************** 

110 ' CHARGEN/GS2 

120 ' ****************************************************** 

130 CLS 

140 PRINT-USE GRAPAPER/FRM PROGRAM TO PLOT A SEQUENCE OF PIN FIRIN 

GS" 

150 PRINT-THEN ENTER THE TOTAL OF EACH COLUMN IN RESPONSE TO THE P 

ROMPTS . " 

155 PRINT-TYPE 999 TO TERMINATE DATA INPUT" 

160 PRINT: PRINT'THE PROGRAM WILL ADD 128 TO EACH TOTAL TO GENERATE 

PRINTER" 
170 PRINT-GRAPHICS IN A LINE USING EACH TO THE FONTS AVAILABLE TO 
GRAPHICS " 

180 PRINT" IT WILL ALSO PRINT OUT THE COLUMN TOTALS FOR REFERENCE." 
190 PRINT:PRINT"HIT ANY KEY TO BEGIN" 
200 PRINT:PRINT:PRINT 
210 IF INKEY$="-THEN210 
220 CLS 
230 CLEAR500 

240 DIMN(50) 

241 DIMNK50) 
250 Z=l 

260 • ************************************* 

270 ■ INPUT CODES 

2S0 ' ************************************* 

290 CLS 

300 1=1 

305 CL=65 

310 PRINT-PIN COLUMN "?CHR$(CL);" " ; 

315 INPUT N(I) 

320 IFN(I)=999 THEN 370 

330 IFN(I) >127PRINT"TOO HIGH-MUST BE UNDER 127":GOTO310 

331 INPUT-BOTTOM HALF ";Nl(I) 

332 IFNl(I) >127THEN PRINT'TOO HIGH-MUST BE UNDER 127":GOT0331 
350 1=1+1 

355 CL=CL+1 
360 GOTO310 



370 
3 80 
3 90 
400 



• ************************************* 

■ SEND TO PRINTER 

i ft************************************ 

T=I 



410 FORI=1TOT 

415 IFN(I)=999 THEN N(I)-0 

420 A$=CHR$(N(I)+128) 

430 LPRINT CHR$(18);A$; ■ put into graphics mode and lprint CHR$ 

440 NEXTI 

441 LPRINT" " 

442 FORI=lTOT 

443 B$=CHR$(N1(I)+128) 

444 LPRINTCHR$(18) ; B$; 

445 NEXTI 

450 LPRINTCHR$(30) 'set to non-graphic text 

460 LPRINTCHR$(27) ;CHR$(20) 'set to condensed for code number prin 

tout 

465 LPRINT-TOP " 

470 FORI = lTO{T-l) :LPRINTN(I) ;:LPRINT" "; 

480 NEXTI 

4 81 LPRINT" " 

4 83 LPRINT-BOTTOM " 

485 FORI=lTO(T-l) :LPRINTN1(I) ;:LPRINT" ";:NEXTI 
490 ■ a************************************ 

500 ' SEND LINE OF CUSTOM CHARACTERS TO PRINTER 

530 ' SET CHARACTER FONT FOR LINE OF CUST. CHAR 

540 'A********************************************************* 

560 CLS 

570 IFZ>1THENLPRINTCHR$(27) ;CHR$(15) 'get out of Expanded mode 

580 ONZ GOTO 590 ,610 ,630 ,650 

590 LPRINT CHR$(27) ;CHRS(14) 'expanded mode 

600 GOTO670 

610 LPRINTCHR$(27) ;CHR$(19) 'normal characters 

620 GOTO670 

630 LPRINTCHR$(27) ;CHR$(20) 'condensed mode 

640 GOTO670 

650 RUN240 

66 9 ■ a****************************************** 

670 ' PRINTOUT OF CHAR REPEATED 20 TIMES 

671 • a****************************************** 

680 FORI1=1TO20 

690 FORI=lTO(T-l) 

700 A$=CHR$(N(I)+128) 'add 128 to pin number to produce CHR$ code 

710 LPRINTCHR$(18) ;A$; "go into graphics mode and print char 

7 20 NEXTI :NEXTI1 

721 LPRINT"" 

722 FORI1=1TO20 

723 FORI=lTO(T-l) 

724 BS=CHR$(N1(I)+128) 

725 LPRINTCHR$(18) ;B$; 

726 NEXTI :NEXTI1 

Listing 3 continued 
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Listing $ continued 

727 LPRINT"" 

730 LPRINTCHRS(30) 

740 Z=Z+1 

750 GOTO 570 


'get out of graphics mode 


End 



Program Listing 4. Subroutine using string method. 

2000 'STRINGS/GS3 

2010 '2 seconds to load buffer and printout line 

2020 'add 128 to each pin column total 

2030 A$«CHR$(129) +CHR$(131) 4CHR$(159) +CHR$(191) +CHR$(254) +CHR$(252] 

2040 A1$-CHR$(240) -HIHR$(224) +CHR$(220) +CHR$(194) +CHR$(161) +CHR$(15 

3) +CHR$(133) +CHR$(131) 

2050 LPRINTCHR$(27) ;CHR$(14) 'set printer to expanded mode 

2060 LPRINTCHR$(18) 'set to graphics mode 

2070 F0RI=1T017 

20 80 LPRINTAS+A1S; 

20 90 NEXTI 

2100 LPRINTCHR$(27) ;CHR$(15) 'reset printer out of expanded mode 

2110 LPRINTCHR$ (30) 'reset printer to non-graphics mode 

2120 RETURN 



Program Listing 5. Subroutine that prints graphics line. 

3000 ' SUBGRAF/GS4 

3010 'Subroutine to print graphic line (rolling ribbon graphic) 

3020 '17 second delay to fill buffer and print 

3030 LPRINTCHR$(27) ;CHR$(20) 'set to condensed mode 

3040 LPRINTCHR$(18) ■ set to graphics mode 

3050 FORI=1TO50 

3060 READN: I FN=999THEN3 80 

3070 IFN>«0 THEN LPRINTCHR$(128+N) ; :GOTO3060 

30 80 LPRINT; 

3090 RESTORE 'set to read data again 

3100 NEXTI 

3110 LPRINTCHR$(30) ' reset printer to non-graphics mode 

3120 DATA1, 3, 7 ,31, 63, 126 ,124, 112, 96, 92, 66 ,33 ,25, 5 ,1,999 

3130 RETURN 



Program Listing 6. Subroutine that prints graphics line. 

3000 'SUBGRAF/GS5 

3005 DIMM(20) 

3010 'Subroutine to print graphic line (rolling ribbon graphic) 

3020 'ONLY 9 second delay to fill buffer and print 

3030 LPRINTCHR$(27) ;CHR$(20) 'set to condensed mode 

3040 LPRINTCHR$(18) ' set to graphics mode 

3050 1-1 

3060 READN:M(I)-N:IFN>255THEN3085 

3080 1=1+1 :GOT03 060 

30 85 T»I:FORJ-1TO50 

3090 F0RI=1T0(T-1) :LPRINTCHRS (M( I) +128) ;:NEXT 

3100 NEXTJ 

3110 LPRINTCHR$(30) ' reset printer to non-graphics mode 

3120 DATA1, 3, 7, 31, 63, 126, 124, 112, 96, 92, 66, 33, 25, 5, 1,999 

3130 RETURN 



Program Listing 7. Subroutine that prints two-line characters. 

3000 'SUBGRAF/GS6 double high graphic 

3010 DIMM(20) ,M1(20) 

3020 LPRINTCHR$(27) ;CHR$(14) 'set printer to expanded mode 

3030 LPRINTCHR$(18) 'set printer to graphic mode 

3040 ' Read and printout top portion graphic 

3050 1=1 

3060 READN:M(I)=N:IFN>255THEN3080 

3070 1=1+1 :GOTO3060 

3080 T=I:FORJ=1TO20 

3090 F0RI=1T0(T-1) :LPRINTCHR$(M( I) +128) ;:NEXT 

3100 NEXTJ 

3110 ' Read and printout bottom portion graphic 

3120 I-l: LPRINT 

3130 READN1 :M1 (I) =N1: IFN1>255THEN3150 

3140 1=1+1 :GOTO3130 

3150 T*I:FORJ=1TO20 

3160 PRINT: FORI-lTO(T-l) :LPRINTCHR$(Ml ( I) +128) ; :NEXT 

3170 NEXTJ 

3180 LPRINTCHR$(30) 'reset printer to non-graphics mode 

3190 LPRINTCHR$(27) ;CHRS(15) 'reset printer out of expanded mode 

3200 DATA 0,0,126,1,125,5,5,5,5,5,5,125,1,126,0,0,0,999 

3210 DATA 0,126,65,85,73,85,73,85,73,85,73,85,72,65,126,0,0,999 

3220 RETURN 




25 Pack 
Complete* 



<** 



BEST 
BUY! 



Single Sided 
Double Density 



m 



Soft sector 5 v.i " flexible diskettes 



$'t 



Double Sided 
Double 

Density ^k 



\nr 



'Complete with hub reinforcing rings, 

Tyvek sleeves, color coded user 

labels, and write protect tabs. 

Quality you expect 
at a price you don't. 

Proven quaMy at a great ppce. BECK offers 
you a full satisfaction money- back guaran- 
tee - you can't lose! If you like the quality of 
3M Dysan. Verbatim, et al, you'll like BFCK 

• Satisfaction, Money- Back Guarantee 

• 100% Certified 100% Error- Free 

• Full 7 Year Warranty 

• Tested and Retested 21 Times to 42 Rigid 
Specifications 

• Meets or Exceeds ANSI Standards 

For IBM. Apple. TRS and 97% of popular 
computers. 

Order Toll Free 1-800-232-5634. 

Available m 25- Pack only plus freight. 

Bulk producl inquiries welcome 

COD s CASH ONLY 

Corp Accts Welcome 

No personal checks accepted. 

Order Now Toll Free 
Door to Door in 48 hrs. 



mm 



(In New Hampshire call 924-3821) 



See List ol Advertisers on Page 145 
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MMMMMMMBmUmm 1 ^ il%H MEET COMPETITIVE PRICES 
2701-CW 15th .SUITE 324 • PLANO TX 75075 .(21 4| 680 8268 



ikCount 
a 



All MOD III program* »p«cif i»d in this ad will run on tm> Modal 4 (in tho MOD III mod*). 



I IUTII DIIECTBIT 

I by AOS 


NOW 1 

2995 


1 SUPER DIRECTORY 

1 by Michlron 


44.95 


MOD 1 in Disk Calaloqer 


m 


I BASIC CHECKBOOK 

1 by Freeman Soil 


64.95 


I Deplete ' •* >ronii Manage- 

Mi, 


m 


1 ■TERM 

1 by Micro Systems 


SALE 
6499 


1 "i 'r.i »-n.rj Paoaqe 


■ 


1 LOAN AMORT 
1 by Big G 


ONLY 
29.95 


1 C-jtn le'e . a" 4mnrti;a'inn 


" 


1 TEST GENERATOR 
1 by -Big G 


3495 


1 MOD II "enemies 

1 1 -ie f aise Muinpie Choice 

| Essa> Questions elc 


■ 


I POWERDRAW 
1 by Powersoft 


34.95 


1 a Sew Graphics Editor 

1 i f-ngra" ijene ator MOO 1 1 


1 


1 DATAGRAPH 
1 by Micro Software 


74.99 


1 _'-"g J'apMC! IrOflt VlSlCAlC MB 
1 MO r »»■ t Sp»city Winter 


1 POWERDOT 

1 by Powersoft 


59.95 


1 1 ntS daohicson EPSON 
1 fPOAR-'fPS OMP 3 Specify 


H 


I M-SCIIrT 

1 by Micro Systems 


79.95 


1 '.' 
1 


H 


I LESCRIPT 
1 by Anilek 


109.95 


1 ■.' i ma> ao 


■ 


1 CLEAN SLATE 1 

1 by AOS 1 


A 95 00 
VALUE 

49.95 , 


• Totally User Configurable 

• ? Color Documentation 

• Easel Binder • Page Onenieo 
o Can Be Used As Screen Ecbtco 

• Bortt In Cwnmumulions PVg 
The Complele Worrjprocessor 
Clean Slate The Book 
included At No ExM Cha'ge 



1 CP/M2.2 

1 by Montezuma Micro 


169.95 


1 D0SPLUS3.5 No* 

1 by Micro Systems $69.95 


J 


Version 3 5 MOD 
Version 4A /. MZAI 
| Version 3 3 MOD ' 


— — Bjpj 


I MULTIOOS 
1 by Cosmopolitan 


59.95 


'.' :•■ '. 


m 


1 M0IIT0R5 

1 by Howe Software 


ONLY 
2295 


MOO i III 4 Specify 


M 


■ LBOS TOOLBOX 

1 by Powersoft 


44 95 


Over 20 Utilities to enhance LD0S S 


1 ALCORC 
1 Alcor Systems 


250.00 


The Complete Syslf"" 
MOD I III Specify 


■ 


1 SUPER KEYS 

1 by AOS 


35.00 


Model HI Keyboard Macro tit 


■ 


1 6.X PIUS 

1 by Micro Systems 


3995 


1 Enhance TRSI 

Nov* upoate'i ' 


j 


I T00LBELTM00 4 
1 by Powersoft 


49.95 


rVbal IDOS Tootbo. • Ml) 
n, • - , 1 


1 IMPART 
1 by Powersoft 


39.95 


A set of utilities lor Basir '.' I • Mil 
| TRSDOS i? 3 11 and LOOS) 


1 POWERSCRIPT 
1 by Powersoft 


34.95 


1 Modification to- 'he Ongwa 
1 SCRIPSIT if 


1 


1 POWERDRIVER 1 

1 by Power soft 1 


29.95 


• Interface Superscript with the following 
printers 0k.da!a9? 93 Epson FX/RX/MX 
Citoti Piowtiter. Otoh Starwnler. Star 
Gemini 10 Series Specify Printer 
when Ordering 




FREE SPECIALS 

Order over $100 or more and select one of the 
following • MELTDOWN • VOYAGE OF THE 
VALKYRIE • MASTER DIRETORY • 
THE GREEN WINDOW. 
Order over $200 and select one of the following 
CLEAN SLATE »PROPIX ©GAME PAK 3 i 
]AOS UTILITIES •SUPERKEYS 



BOOKS, CHARTS 



AND MISC. 

CREEK WINDOW ALL MODELS 16 95 

INSIDER SUPER UTILITY 221 17.16 

SUPER UTILITY TECH MANUAL 3.X 13.95 

TRS-BO/Z-BO ASSEMBLY LIBRARY 31.95 

TRS-BO DISK & OTHER MYSTERIES . . . 19.95 
THE CUSTOM TRS-BO & OTHER MYST 2695 

MICROSOFT BASIC DECODED 26.95 

MACHINE LANGUAGE DISK I/O 26.95 

BASIC DISK I/O & OTHER MYST 26.95 

HON TO 00 IT ON THE TRS-80 26.95 

TRSOOS 2 3 DECOOED & OTHER MYST 26.95 
BASIC FASTER A BETTER 26.95 

BFB LIBRARY DISK l/lll 16.95 

BFB OEMO DISK l/lll 16 95 

TRSOOS 6/L00S PROGRAMMERS GUIDE 1895 
DISKETTES SSDO 10 IN PLASTIC BX 19.59 

CLEAN BUTE THE INK 1 5 95 

PROFILE 3+ COMMANDS WALL CHART* 4 00 
IISICALC COMMANDS WALL CHART- 4.00 

SUPERSCRIPT WALL CHART * 4 00 

MODEL III BASIC WALL CHART ' 4 00 

MODEL 4 BASIC WALL CHART* 4M 

. -oiiis lit siirrti is HMurt oiou 



B i i ■■■ [ lei Systen 
MOD I III 



'.' ' ■■ I 80 Assemble- 
MOD ' in >pe '. 



ALE EDITOR/ASSEMBLER 

by The Alternate Source 



. fl(! Assemble- 
MOO i ill 4 Spenty 



SYST DIAGNOSTIC 
by Howe Soflware 



'hec«s Complete Sys'en 
MOD ' in 4 Spec-iy 



BASE 34 

by The Alternate Source 



iv : ll •■ BASAN\ ir : r»:-, : ; 



Basil s'ung Cnmptession MOD I in 



Speed Up Basi-. Execution MOD I Ml 



«v for MOD I H - - 



TRS-80 ERcyckiieiii 

Covers the models I, III 
and 4 extensively. A 
must have item for your 
TRS-80 library. Over 400 
pages of valuable infor- 
Vmation ONLY 19.95, 



I SURVEY ANALYST 

by The Alternate Source 



195.00 



Trick Survey Data - Analyze the Results 






ACCEL 4 

by Alan Geider 



Bas«. Compile' MOD i in 



MOD I in Disassemble' 



The brand new survey analyst was developed lor 
marketing and survey research Field tested on 50 
studies over 3 years this excellent program lyings 
many new features to the TRS-80 world • Over 100 
pages of instructions • Handles single or mufliple 
choce answers and numeric values • Printer outpul 
and table format • Up to 510 Questions per survey 
• Exiracls and analyzes selected groups or selected 
Questions • WiH handle 400 responses to 500 ques- 
tions on a 40 TRK OD Disk • Many more features 
Order today or call for additional ntormation 

MOD l/lll Specify 



PR0-CESSMO04APPENDCM0 FILES . . . 37.95 
PRO-CREATE MOD 4 ED/ASSEMBLER . 94.95 
PRO-CURE MOD 4 TO CP/M TRANSFER . . . 46 95 
PRO-DUCE MOO 4 DISASSEMBLER . . 37.95 
PRO-PADS MOD 4 PART DATA SETS . . 37.95 
PRO-ZCAT MOD 4 CATALOG UTIL 27.95 



VIDEO 


— N 


INSTRUCTIONAL 


TAPES 




PROFILE III PLUS 


36.99 


SUPERSCRIPSIT 


3699 


LAZY WRITER 


3699 


NEWDOS-BO 


36 99 


SCRIPSIT 


36.99 


TRSOOS 13 (MOO III) 


36.99 


TRSOOS 6 (MOD 4| 


3699 


TRSOOS 6 DISK I/O (MOD 4). 


36 99 


TRSDOS 13 DISK I/O |M00 III) 


3699 


MULTIDOS 


36.99 


DOSPIUS 


36 99 
36 99 


LDOS 5|X) 


IISICALC 


36 99 


CP/M 2 2 MONTEZUMA [MOO 4| 


3699 


MULTIPUN (MOO <; 


36.99 


PES FILE (MOO 4| 


3699 


MOO 1 LEVEL II BASIC 


4699 


MODEL III BASIC 


4699 


L. SPECIFY IRS or BETA 
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HTKUIMS/XT 

Hyper soli 



COPY »0UR HUS TO/'AOM 

TASOOS MSBuS CP/M 
SPlClft MOO I 00 III or 4 



v .■ 


SS *. •<"• ».'• »K 


"cV k S "■? . 










i r* * V"? lorn ■ i 


i, 't - 'I 


jgRM 




v*te!1 die 


Ti 


J 1 >«H ~ ■« ■ 




• V 


■ 


-(,- •..: 


■"• 




: .)•- *•■ 


SM 


' 


4C' '"* 




V ' ' i 




'MlOV 


00 


amj «*«. 




i- . it. i • -'. 


H«'« »f(SS 


■ HT08 »"' 


8000 CCS 




1 . ,'•■ t 


B\ DEI x- 


SS'A 


■ II 


f IPSOII 



BiCTBIC ■EKTEI 

by Cornucopia Software 



149 95 SAVE ?0 
WITH CORRECTING FEATURE 



ONLY 
119-.95 



Reviewed as he bes' pioolreaoei and spelling checker 
on ine market Works with SCRIPSIT LAZY WRITER 
ELECTRIC PENCIL ZORLOF Nf WSCRIPT COPYART 
and ACORNS SUPERSCRIPSIT Sepaiale version avail- 
able to RS SUPERSCRIPSI* Sold with cor-eclmg 
feature for 149 95 

OUR MICE Hi-M 

NTPREUTNI WTIM* »•« 

CMMtttl & STYLE CHECKER- IMS 

MOD l/lll 

"Note hypnenahon & g'amrnji options are rrol 
available for ail word processes Ask when ordering 



ICS PROFESSIONAL 

by Freeman Software 



INVENTORY CONTROL 
SALES REGISTER 
INVOICING 



This complete retail Inventory. Invoicing and sales 
register system will maintain over 2.500 items on 
MOO III floppies with built in accounting lor sales tax. 
sales type and 9 different sates people. Prints sales 
registers invoices and many different inventory 
reports on 80 or 132 col Printer. Tracks backorders 
and will also re-order on predetermined quantities 
Also maintains cost of entire inventory A GREAT 
VALUE! 

MOD l/lll 



SALE ONLY 69 95 

MOD 4 Version Now Available 




NEW SUPER UTILITY + 

VERSION 3 2 

InckKto* Operators Rtonual 

and 2nd Backup 4M*k 



Tfct Bmi IrrsMt. SU + 3.2 

NOW ONLY 1 7.95 

ExparMnc* a S fHo 1 with tha 

program voted a* the outstanding 

utility of 1982 and 1883. 

MOD I or MOD III Protected Madia 



ULTRATERM 



JUST 
REDUCED 



ULTRATERM NOW 39 95 
Version 2 w/Auto Logon 49 95 



,- ,. ■■,■ ( i. vs , Mn • i j.. 

< 4S/ lain I It '•jns'wssior *,3 

i" sv^'f"s » "Mtto wrtfluousiv 
t*>» 'tmH>w*j •"vf-ve.e- *v r^te- ■- 
.}•<-•:•>,,• wot,.-, phut, -1 en*' 



IllERIatfUCIMTMT' 

1 By Continental. Software 



An Outstanding 
Financial Planner 



• Miioijif* 'jo io i00 DudQti Caitgones • Keeps irac«otuo 10 lr«c 
ctvckuDoohs • rVtftis efNKU i' Onmi • P"Ws > prion*) Mivce 
St«lf"*nt income *no nptme surwwv • r^mts «*l wonft MHM 

• P'o-ioei fast &*** -tconcjMwm • AHom tut meows on 
rruilic**- »UitntS • One program n*nOs«$ USA ChtCUKOkS crtOV 
(Ml *fld Othtr UMhtS *nd nptnstS • Untaiattdtnnwl:'>ns«Ct«ns 
•K4l 0» UWOV yt* • Tr«r»MCtiOn& rnjy be H*T *mong »«**** 
bwOgtt NfMMI • *lsQ$ti«ns«t«ft$torUi owpwes • m^i^< 

ll«AUttnn raslori • PrrjvO*', H.- Hfs 0/ AphrCS Iff iny C4T«gr> . D. M' 

iht program tistH 3oei mi tboul twvtntu) rOvd «s* d » prsow 
hwet otcMft - ripuuf Comjpuino Nowtmfir '987 
MOO ill 



ILCcompilerANDI 

[EDAS By Misosys 



fO«S »«'•>• S>00 

J SPECIA1 Bur 

I B0IM I0B SI39 99 



Now program in the "C" language 
compiler subset for LDOS. LC gener- 
ates Z-80 EDAS IV source code as 
output Compiled programs run on both 
MOD I and MOD III. Save $60.00 with 
the best LDOS editor assembler pack- 
age on the market Over 200 pages of 
documentation. Requires 2 drives and 
48K. for lies ■OB i/iii 

■ OR 4 IERSIM AVAILABLE 




ASCII Pile Compression Utility 



San awt (Hit li »u jiki 

This new utility will do a Oinary tree compress on 
ASCII, word processor, or text liles tor archival 
purposes You can define your own special com- 
pression key word list or use the standard words 
included TEXT PRESS will compress or decom- 
press one or several tiles Contains a list utility to 
list files from DOS without a separate 
decompress 



MOD 



Specify 



1 TIN TRS-M 


ONLY 






I GRAB BAG I 


99.95 




1 68 P'«gr»ms on 14 Oilterenl 


■ 




P Casstltcs MOO i or ill 






it Al B-ogfjTis C»n Be mo«erj to D'St 

1 RAUF 75% ^iaW 


Rcliil 






■ETIll 




ClECtMIKS 1 1 PMHMt 


WIS 




f UCTMIICS II 7 PMCIMt 


34 IS 




ElECIMIICI III • NMUil 


KM 




tenn Finn BtsiGM s riotous 


34 IS 




It UNCI aiTMH 1 nun* 


I4.N 




■eini IMK CIHUTNIIL i rwui! 


liRR 




■ os tit i« sic sc limine ? pi Minus 


tut 




ntue df mm he i mcui 


his 




•EICIIPTIIE SI'IISIUS 3 PMCMII 


3413 




TIME ItllEH BOM Hliron 3 PIKIilS 


24 IS 




TIME IUICEII US HIS ID II i PlOtlUS 


21 IS 




norms oupiis FN uie mini ] nmui 34.M 




nim« tiinii fii (urn ntpur s fiuiiii m.m 




attriT uik *numu it ptwuat 


24 IS 





POWERMAIL PLUS 
AND TEXT-MERGE 



Introductory Offer 
Save 25% 



Now 
149.95 



THE FINEST MAILING LIST JUST GOT BETTER. 

Now me - ge data f*orr Piwe'Vat' P'us ' r . 
ceate customwed fo'"' letters special matt- 
ing items specia 1 label o> list formats and 
we Easy to use with you' existing wo'Ct 
ptocessn- 
PUBLISHED BY POWERSOFT 



H MM iwiiiWi rwHr«KI Ptu . 
fefl-Minji 



IZ4.lt 

49 95 



INFOSCAN 

I By The Small System 



NOW 
44.95 



woScjn >s «n wnmn W nni ui*fy :fw' ( S us«o io co^tni-e sio»« and 
fef'irrf any lyw o* uS4tful irrtoirfiafof. >o any hymal 
n corntHnes fne tuiures of a «o>d processoi data base "anao* «nd 
flformalior- lelrievai and OHplay jliMy vou compose >n»o"na'<ir 
'tcords on tht scr f*n u$«g the *o"J oxess«o 'eave »n any lonna" 
you Wie Eacfi 'oconj is descf*»d tw ' 1 7 cfwacie* hey phrase fftai 
you sptcrty Once ceated Ihe tnroi"w*ion '*es keypftrases can be 
scanneo as a hsl or ihe scten js«o an impn>ss"re hey scan twathe: 
'oi scoil rhe kevphfasts nvu 'he b«ac>iels vtnm ine arrow . - f ,s on 
your hevboard When the dtSHeo Kevpnrase :■ hmnd yev press i 
smpjli My and rhe corresponding mlormaiion >eiord »s 'Clneved ''om 
ftsh and displayed on 'he sceo The 'eccd drspiays -n eiKiw ■ v 
same tormai as you used 'o create •' yck, can even design you< nwn 
forms io "*• m 

MOD l.'lll MINIMUM 48K 1 Qf.ve 



lum iNni^NN! 




N by McroSystems Software ^MiFfi! kiH 




1 RUN YOUR OWN ■ 




* 8Ull!IIN BOARD 




tour compu'er Ofcomei a "«"• COmnvncalWS <«|<KKk BBS to »i*o* s a 




prson io fftchangr **% sages ry ■rttornjtion *a ihe nnphrjm Aaess can 




be comparifiy pupae pr>«aie '<i autnorueo users or hrmied to ceria* 




•ndwaJuais BBS BO can «»e i»«$sjgei * another itrmmjl utmg as a 




>ap>o eteclronc ma-imar BBS SO provdes some or Ihe mosi adva««ced and 




mosi ctyw^fMffi *eaiures •■•• *ncoipoiiied ■ 4 mcrocompuiei BuHeim 




boarc system inchiovtg Use's may send pnvaie messages "»a' may be 




'eady o«y oy "if Moresse* »Ml» »«' system secwniy artcrws up M IS 




*reis oi securrrv • bWh tie message fus* and ihe uptoad/dovvniDad 




dal abase BBS W 'emembrs eat'' 'tgular w$e< and stores MRMtf 




rtor-siiion securt'v access »e*eis usi message reir**eo durmg last cai 








programs h*s io BBS 10 'hese program* n»ay Ihtn M o«*raoMlfld' io 




atner BBS 8C users BBS »C -s S«H m^oiiwirtg Message space >s 




au(omaiica«v 'eda-mec wher messages a<e deieied 





PRE^TER RffiBONS 

First Quality Brand New-No Reloads 

PRINTER PRICE EA. BOX OF 6 

ANADEX 9500 SERIES/9620/9625 9.00 48.00 

C. ITOH 8510 PROWRITER 7.00 36.00 

C. ITOH AIO/FIO/DWP 210 (FILM) 5.00 26.00 

DMP 2100/T0SHIBA 1350 8.00 44.00 

DW ll/DWP-410 (MULTI STRIKE FILM) 6.00 32.00 

EPSON MX-80/FX/RX 6.00 32.00 

EPSON MX-100 9.00 48.00 

LP lll/K 6.00 32.00 

OKI DATA 80/82 A/8 3 A/9 2/9 3 4.00 20.00 

OKIDATA 84 5.00 26.00 




A 'ea time simulator ot lire operation anrl on 
'mi ot t nur.iea: pofte 1 qene'jinK) ■•Mtion Si.'een 
qiapnii s -ne utili/M tn (lisplav 'f" 1 1 lua r'ant clia 
(]'.,r v.: a separate control panel screen nay t> 
Ait. he,1 i" iii.l oi.' while tt'i' plan' .s -iirni-ij 'rip 
■r e- ' ' "• i" .lafior s if keep the plant a! pea« 
;„"i in im e r , va. ling t< yarwui problems wni. n 
> i in During opeiation 

MOD I tn 



Tnis new product tor BASIC programming features 
the ability to build and maintain STRUCTURED 
BASIC code • No line numbers needed • BASIC 
text translator • Adds STRUCTURED construcls 

• Adds label variables • Copy code from routine 
libraries • Includes extensive Help tiles • FREE 
'ibraiy ot utility and command subroutines 

• FREE general purpose translator • A unique 
and efficient way to write BASIC 

MOD I IH4 2000 Specify 



THE ULTIMATE 

ELECTRONIC NOTEBOOK 



interrupt artivateo so you.' tries a'e available wtie- 
'unnng anotne' piogiarr Key toggle back and forth 
between your prngrarr- and superlog seanhlor add 
or edit data when you want this intcupt lunclion 
is compatible wi" 1 any basic or assembly language 
program which does no 1 disable 'he interrupts o 1 
system driveis Help file tor punter output mciuded 
Basic prpgrarn loi i alenw trie included 

SUPF.H1.0G l/lll FOR LDOS 5 IX 
SUPERL0G 4 FOR TRS00S 6.X 



GENERAL LEI8ER 

By FBN Systems . 



The Finest We»e Found 
I SAVE 50% ^-^ 



doi vou'pes»?ni lefjgr >i'MV iosr Ma '**rjr>irg„og 
' tvjNNi '0 MSUWrfhCn **3 '-'tO 0* "I* ^nr^rJrrl^esSrOr'Jl^^''■ yOU "W1 



•V FBN I 



rl LlfJOCf 



Uutiit« c *<* Acoxrts Owttmtmatut d^v * cno* »rx. se*« I 

•HiCi *,COufl1', priot on incpmr? Mj'em*n< i bVif.^ S1«' Rea* 
•i"* "ansattio' posing nr mr^f -y!'P oroceSStng »Ota> Jufji' 
lr#i (AjplM.f *ria1 , v - ■;*>.,*„■ '.. v "w l.-ir-l g*Of'd' te$qe> 'rv 'r> 

Unoei mi -v ine "wkpi C«* lor "^ce *'*is nr •**- 'io* a tt*,' 
P MM BI '■u'Or'W' 

REOICED TO 148.95 



AiskCount 



214-680-8268 



Send Cash, Check or Money Order. 

Please add $3.00 for postage and handling, additional $2.00 for C.O.D.s. 

Foreign orders welcome, please specify air or surface. 

All shipping charges assumed by purchaser. 

When ordering by mail, please specify computer model number. 

Phone Your Order In Today Or Mail To: 

DISKCOUNT DATA, 270 1-C W. 15th St.. Suite 324, Piano, TX 75075 

Office Hours Mon-Fri 10A.M. to 9P.M. C.S.T. 

^204 

and | w«" | Cheerfully Accepted 



y See List of Advertisers on Page 145 
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TECHNIQUE 



by Jane Goodale 



ON THE RECORD 

Sequential random-access files each have their own advantages and 

disadvantages for data storage and retrieval. Here's a way to 

combine the best features of both. 



Sequential files use disk space 
efficiently, but they have their 
disadvantages. To update rec- 
ords, a program must read and write an 
entire file. And searching for a specific 
record can require extensive disk in- 
put/output or main memory, depend- 
ing on the technique you use. Random- 
access files (also called direct-access 
flies) don't have these drawbacks and, 
with good planning, they can be reason- 
ably efficient users of disk space. 

I'll introduce three Model I/Ill Basic 
programs that create and sort indexed 
random-access files, letting you easily 
manipulate data stored on disk. First, 
however, I'll describe how random-ac- 
cess files work. 

Records and Subrecords 

Table 1 shows the Disk Basic com- 
mands you use to create and access ran- 
dom files. Random-access files store 
data in buffers. A buffer is one 255- 
character record; you can define subrec- 
ords (i.e., fields) within the buffer using 
the Field command. The Get command 
accesses the full record; you need a file- 
handling program to access the sub- 
records. 

For example, assume you want a file 
of names and phone numbers that sets 
aside 25 characters for a name and 12 
characters for a phone number. Posi- 
tions 1-25 in the file buffer contain 
name characters and positions 26-37 
contain the phone number. Each 
255-character main record could hold 



The Key Box 

Models I and III 
32K RAM 
Disk Basic 
NEWDOS80 (for sort) 



six of these 37-character subrecords, 
with 33 unused characters left over. 

Here's how you'd open this file and 
define its fields: 

10 OPEN I, "R", "NAMEPHON/RNDrl" 

20 FORI<7» = 0TO5 

30 FIELD l.(I<^*37) AS DMS. 25 AS NM$d°7t), 

12 AS PHK1°*») 

40 NEXT Wt 

Line 10 opens the file as a random 
file. If the file already exists, the system 
finds it. If it doesn't, the system creates 
it. Line 20 determines that the program 
creates six subrecords. In line 30, the 
statement (1%*37) AS DM$ sets up a 
pointer to the beginning of each subrec- 
ord; the rest of the line describes each 
field within the record. 

Program Listing 1 creates the ran- 
dom-access file described above to hold 
your data. Program Listing 2 reads the 
file sequentially. Whether you access 
the file randomly or sequentially, you 
always define fields as shown. You ac- 
cess the record using Get to call the full 
record. Then you use a file-handling 
program to locate the subrecord you 
want. 

To write a record, you always fill the 
buffer using LSET (for left -justified da- 
ta) or RSET (for right-justified data) 
with a specified subrecord position. 
These commands pad data that doesn't 
quite fill the buffer. Then you write the 
file to disk using Put with the main rec- 
ord number. 
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Command 


Description 


Field 


Defines buffer 


LSET/RSET 


Positions data in buffer 


Put 


Writes the buffer 


Get 


Reads the buffer 


LOF 


Sets pointer to last main 




record of file 


Table I. Commands for manipulating ran- 


dom files. 





Indexing Your Files 

As you can see, reading and writing a 
random file sequentially isn't too com- 
plicated. However, to read a file ran- 
domly, your program must have a way 
to determine the main record number 
(which I call MR%) and the subrecord 
number (SR%) of the file in which 
you're interested. In other words, you 
need an index of the records stored in 
the random-access file. I use a sequen- 
tial index file to point to the random 
records. It's easy to use and control, 
and has the advantage of letting you 
search the index by more than one key 
word. 

One important aspect of random-ac- 
cess tiles to remember is that fields in 
random files are absolute in size; you 
use LSET or RSET to fill the fields to 
the right or left, with spaces added to fill 
the buffer. (A sequential file's fields 
generally vary in size with the data and 
use a delimiter, like a comma, to define 
the fields.) 

Program Listing 3 demonstrates my 
indexing technique with a program that 
catalogues my applications programs. 
Listing 3 stores data in the fields shown 
in Table 2. It includes entries for the 
program name, author, application, 
and the disk on which it's stored. You 
could use the same procedure to create a 
file of names and phone numbers, can- 
didates and votes received, and so on. 
I've listed all variables at the end of the 





Length 




Position 


(in bytes) 


Description 


1-12 


12 


Program name 


13-16 


4 


Application 


17-24 


8 


Disk name 


25 


1 


Side 


26-27 


2 


Grans 


28-37 


10 


Author 


38-57 


20 


Description 


Table 2. 


Fields for program reference file. 



The index file 

controls access to 

the random file 

using the program 's 

name as the key. 



program; they're for reference and 
shouldn't be typed in. 

When you run the program, it dis- 
plays a menu of three options: adding a 
new file, changing or deleting a file, or 
exiting the program. As you update rec- 
ords, the program creates a sequential 
index file in memory using arrays. The 
program writes out this index file at the 
end of the job; the file controls access to 
the random file and uses the program 
name as the key field. 

Each index file record has the format 
XXXXXXXX/XXX, MR<7o, SR%; 
that is, the program name, the main rec- 
ord number (file or buffer number) and 
the subrecord number. The variables 
MR*Vo and SR°7o of the index file point 
straight to the random record for any 
specific program name. Table 3 de- 
scribes the main routines of Listing 3. 

Program Listing 4 creates, sorts, and 
writes two index files from the main 
random file in Program Listing 3, one 
using the program name as the key word, 
the other using the application. Don't 
sort or change the index file; it controls 
the update procedure. The sort in lines 
240 and 270 Is a system sort available 
under NEWDOS80 2.0. Alternatively, 
you can insert a sort for your own DOS 
(for a TRSDOS sort, see "Proper Ar- 
rangements," June 1984, p. 96). 

Program Listing 5 searches the ran- 
dom file in Program Listing 3 using the 
two index files created in Listing 4. By 
creating an index file that can have any 
field as the key, you can sort the file or 
access records in any sequence you 
want. 

This technique has saved me the trou- 
ble of finding a good algorithm for ran- 
domizing the key field (which would 
have to be unique) into a main record 
and a subrecord. I feel that I have better 
control, and the pointers are so simple 
that they're less likely to get out of sync 
and send all my data into never-never 
land. This method should help pro- 
grammers manipulate random files 
more easily and confidently. ■ 



You can reach Jane Goodale at 828 
N. 121st St., Omaha, NE 68154. 



Lines 

10-20 

30 

40-50 

70-90 

100-190 



200-260 



400-420 

500-570 

600 

700-720 

750-760 

800-810 

900-920 

1000-1140 



Description 

Initialize variables. 

Read index Hie. If it doesn't exist. On Error routine takes care of it. 
Initialize and field random file buffer. . 
Menu. 

Add to file. Last record added will be displayed first. To duplicate a field 
from previous record press the enter key. If a deleted record exists (• in pro- 
gram name) the record is put there. Otherwise it's added at the end. 
Change or delete. Asks for program name, displays the record, and positions 
cursor under each field in turn. Change field by entering new data, or leave as 
is by pressing enter. Delete record by typing asterisk (•) in the program name 
field. Line 260 returns to line 230 where \"h is stepped up to find the next oc- 
currence of the same program name, which handles the duplicate key. 
Locate the first deleted record. 
Set variables for input routine. 

Get data from the random file buffer based on subrecord number XS%. 
Fill random file buffer. 
Fill unused subrecords with x's. 
On Error routine. 

End of job. Writes index file. At this point, 1 run Listing 4 to create two more 
index files. 

William Barden's Universal Gee Whiz Input routine. See Programming Tech- 
niques for Level 11 Basic, p. 57, for full discussion. 

Table 3. Main routines for Program Listing 3. 



Program Listing I. Creates a random-access disk file. Add lines 10-40 from p. 106. 



100 MR%=1 ' initialize main record number 

110 FOR SR%=0 TO 5 ' six subrecords to fill 

120 INPUT'ENTER NAME ( •*' TO EXIT ) ;N$ 

130 IF N$«"*" THEN GOTO 210 

140 INPUT-ENTER PHONE"; PS 

150 LSET N«$(SR%)=N$ ' fill buffer 

160 LSET PH$(SR%) =P$ 

170 NEXT SR% ' step up subrecord number 

180 PUT 1,MR% ' when six are filled, then Put 

190 MR%=MR%+1 ' now step up main record number 

200 GOTO 110 'and loop back 

210 IF SR%=0 THEN 230 'last record 

220 PUT 1,MR%' otherwise write it out 

23 CLOSE 1:END 





Program Listing 2. Reads a random file squentially. Add lines 10^0 from p. 106. 




100 


FOR MR%=1 TO LOF 




120 


GET 1,MR% 




130 


FOR SR%-0 TO 5 




140 


PRINT NM$(SR%) ,PH$(SR%) 'subscripted fields 




150 


NEXT SR% 




160 


NEXT HR% 




170 


CLOSE 1: END 


tnd 



Program Listing 3. Creates indexed random files. 



1 REM RANDISKU/BAS JN GOODALE 

2 REM CREATE AND/OR UPDATE A RANDOM FILE OF PROGRAM 

3 REM AND DATA INFORMATION ON DISKS 

8 REM 

9 REM INITIALIZE 

10 CLEAR25000:CLS:PRINTTAB( 15) "UPDATE PROGRAM INFORMATION FILE": PR 
INT@340,"INITIALIZING":DEFINTA-Z:DIMIP$(500) ,IM%(500) ,IS%(500) :E$ = 
"##":H2$-"PROGRAM APPL DISK S GR AUTHOR DESCRIPTION": 
H3$=STRING$(63,"=") 

20 MR%=1:SR%=0:N%=0:FI$="DISKINDX/INX:1":FR$="DISKINDX/RND:1":ONER 

RORGOTO800:OPEN"I",1,FI$ 

29 REM READ INDEX 

List inn 3 continued 
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BIBLE 
HIGHLIGHTS I 



Highlights of the Bible for 
children, kindergarten fhrough 
fourth grade 

Christian learning through 
animated Bible stories, games 
and quizes 

Covers CREATION. JEWISH 
TRIBES AND LIFE OF CHRIST 



A computer software package 
for TRS 80 Models III and IV 
Total program over 70 k bytes. 7 
sections each less than 16k 

Specify tape cassette or diskette. 



Price $19 50 Postpaid. 
Satisfaction guaranteed 



Send check or money order to: 

STAR SOFTWARE CO., 

DEPT M80 

2315 WATERBYST 

WESTLAKE VILLAGE 

CA 91361 -« 



Genealogy 

Program 

(for 48K Model IV4 Two Disk Systems) 
HOID5 350 RKORD5 PCR RL€ 

•k Records filed by nome key 

* Unlimited records with multiple files 

* FNkxus changes in spelling of surnames 
■k Shipped on premium diskette 

Comprehensive Docum e ntation 

five Reports: Full fitpha Printout 

family Tree. Paternal line. Maternal 

line. Descender* Line 

*49 95 u S 

Send Chech or Money Order to 

MIMAR, INC 

116 Bayuwod Drive : Man, MS 395M 

• 317 

Free Shipping for US. Oders 

Mississippi Residents odd 6% Soles Tax 

Foreign Orders odd $5 Shipping ond Handling 



Listing 3 continued 

30 INPUT#1,IP$(N%) ,IM%(N%) ,IS%(N%) : IFEOF(l) THEN40ELSEN%«N%+1 2GOT03 


39 REM INITIALIZE RANDOM FILE BUFFERS 

40 CLOSEl:MR%-IM%(N%) :SR%=IS%(N%) :GOSUB420 

50 0PEN"R",1,FR$:FIELD1,255 AS DX$:LSET DX$«STRING$(255, "X") :F0RI% 
«0TO3:FIELD1,(I%*57)AS DM$,12 AS PG$(I%),4 AS AP$(I%),8 AS DN$(I%) 
,1 AS SD$(I%),2 AS GR$(I%),10 AS AU$(I%),20 AS DS$(I%) :NEXTI% :IFN$ 
»"Y"THEN100 

69 REM MAIN MENU 

70 CLS : PRINTTAB ( 15) "UPDATE PROGRAM INFORMATION FILE" : PRINT :PRINTTA 
B(20)"l) ADD TO FILE":PRINTTAB(20) "2) CHANGE/DELETE" : PRINTTAB (20 
)"3) END PROGRAM" : PRINT: PRINTTAB ( 10) " .... CHOICE (DO NOT HIT 
<ENTER» "; 

80 K$=INKEx$:IFK$-""THEN80ELSEPRINTK$:ONVAL(K$)GOTO100,200,900 
90 GOTO70 

99 REM ADD TO FILE 

100 IFN$«"Y-THEN120ELSEIFD$="Y"THEN120 

110 GET1,MR%:XS%-SR%:GOSUB600:N%-N%+1:IFSR%-3THENSR%-0:MR%-MR%+1EL 
SESR%-SR%+1 

120 CLS: PRINTTAB (03) "ADD TO FILE : (••' TO ESCAPE, <ENTER> TO R 

EPEAT) ":PRINTH2$:PRINTH3$ 

130 IFD$»"Y"THENGOSUB400 :GOTO100ELSEIFN$-"Y"THEN145 

140 PRINTPG$;TAB(13)AP$;TAB(18)DN$;TAB(27)SD$;TAB(29)USINGE$;GR%; : 

PRINTTAB(32)AUS;TAB(43)DS$ 

145 FORI1-2TO13:ZX-I%*64+128:GOSUB500:IFZA$-"*"THEN180 

150 XS%=SR%:XM%«MR%:X%-N%:GOSUB700:IFSR%-3THENPUTl,MR%:MR%«MR%+l:S 

R%-0ELSESR%=SR%+1 

160 N$="N" :N%«N%+1 : IFN%>500THENN%°500 : GOTO 900 

170 NEXTI%:GOTO120 

180 N%«N%-1:IPSR%>0THENGOSUB750:SR%«SR%-1ELSEMR%«MR%-1:SR%«3 

190 GOTO70 

199 REM CHANGE/DELETE 

200 CLS: PRINTTAB (24) "CHANGE/DELETE": PRINTTAB (12) "'*' TO DELETE";TA 
B(31) "<ENTER> TO LEAVE AS IS": PRINTTAB (18) "PROGRAM NAME :"j:F$«" N 
OT POUND" 

210 ZZ«12:ZC-161:GOSUB1000:IFZA$»"*"THEN70ELSEPG$«ZA$: PRINT" ":PG$ 

-PGS+STRINGS ( 12-LEN ( PG$) , " " ) 

220 FORI%-0TON%:IPPG$-IP$(I%)THEN240 

230 NEXTI%:PRINT" ": PRINTTAB (18) "PROGRAM " »PGS;F$: INPUT" CENT 

ER> TO CONTINUE" ;K$:GOTO70 

240 XM%=IM%(I%) :XS%«IS%(I%) :GET1 ,XM%:X%-I% :GOSUB600 :PRINT0192,H2$: 

PRINTH3$:PRINTPG$;TAB(13)AP$jTAB(18)DN$;TAB(27)SD$jTAB(29)USINGE$/ 

GR% ; : PRINTTAB( 32) AU$;TAB ( 43) DS$ 

250 ZX-3 84 :GOSUB500 : IFZA$-"*"THENPG$-"*" :D$«"Y" :DM%«XM% :DS%-XS% :DR 

%=I% 

260 GOSUB700:PUTl,XM%:F$-" FINISHED" :GOTO230 

399 REM LOCATE DELETED RECORD 

400 D$«"N" : ZX-192 :GOSUB500 : IFZA$«"*"THEND$-"Y" :GOTO440 
410 XS%«DS% I XM%-DM% :X%-DR% :GET1 ,DM% :GOSUB700 : PUT1 ,DM% 

420 FORI%-0TON%:IFIP$(I%)*"*"THEND$-"Y":DM%-IM%(I%) :DS%-IS%(I%) :DR 
%-I%:GOTO440 
430 NEXTI% 
440 RETURN 

499 REM SCREEN LAYOUT AND INPUT 

500 ZZ»12:ZC-ZX:GOSUB1000:IFZA$»"*"TBEN570ELSEIFZA$O""THENPG$»ZAS 
510 ZZ«4:ZC«ZX+13:GOSUB1000:IFZA$«"*"THEN570ELSEIFZA$O""THENAP$-Z 
AS 

520 ZZ»8:ZC»ZX+18:GOSUB1000:IFZA$«"*"THEN570ELSEIPZA$O""THENDN$«Z 

AS 

530 ZZ-1 : ZC-ZX+27 :GOSUB1000 : IFZA$*"*"THEN570ELSEIFZA$<>""THENSD$«Z 

A$ 

540 ZZ-2:ZC-ZX+29:GOSUB1000:IFZAS-"*"THEN570ELSEIFZA$O""THENGR%»V 

AL(ZA$) 

550 ZZ»10:ZC-ZX+32:GOSUB1000:IFZA$-"*"THEN570ELSEIFZASC>""THENAU$- 

ZA$ 

560 ZZ*20:ZC-ZX+43:GOSUB1000:IFZA$="*"THEN570ELSEIPZA$<>""THENDS$» 

ZA$ 

570 RETURN 

599 REM DEFINE DATA 

600 PG$-PG$(XS%) :AP$«AP$(XS%) :DN$-DN$(XS%) :SD$»SD$(XS%) :GR%«CVI(GR 
S(XS%)) :AU$-AUS(XS%) :DS$-DS$(XS%) :RETURN 

699 REM FILL BUFFER 

700 LSETPG$(XS%)-PG$:LSETAPS(XS%)«AP$:LSETDN$(XS%)-DN$:LSETSD$(XS% 
)-SD$:LSETGR$(XS%) =MKI$(GR%) :LSETAU$(XS%) «AU$:LSETDS$ (XS%) «DS$ 
710 IP$(X%)«PG$(XS%) :IM%(X%)-XM%:IS%(X%)=XS% 

720 RETURN 

749 REM FILL UNUSED SUB RECORDS 

750 X%-N%+1 :XM%-MR% :PG$-"X" i AP$-"X" :DN$-"X" :SDS-"X" :GR$*"0" : AU$-"X 
":DS$-"X" 

760 FORXS%-SR%TO3:GOSUB700:NEXTXSt:PUTl,MR%: RETURN 

799 REM ON ERROR ROUTINE 

800 IFERL»20THENN$-"Y":RESUME50 

810 PRINT'ERROR "| ERR/2+1;" IN LINE ";ERL:END 

899 REM END 

900 CLOSEl:0PEN"0",l,PI$:PRINT"CREATING RANDOM INDEX FILE" 

910 FORIt-0TON%:PRINT#l,IP$(I%) |",";IM%(I%) >",";IS%(I%) :NEXTI%:CLO 
SE1 

l.almt i continued 
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Listing 3 continued 



NOW RUNNING PROGRAM INDEX" :RUN"RA 



920 CLS:PRINT"END OF UPDATE . 
NDISK1/BAS" 

999 REM BARDEN'S INPUT ROUTINE 

1000 ZA$*STRING$(ZZ,".") :PRINT§ZC,ZA$;CHR$(14) j : ZA-LEN(ZA$) :FORZF- 
1TOZA: PRINTCHRS ( 24) ; : NEXTZF: ZA$=STRING$ ( ZA, 32) : ZG=1 

1010 ZH?=INKEY$:IFZH$«""THEN1010 

1020 IFZH$«CHR$ ( 8) ORZH$«CHR$ ( 9) ORZH$-CHR$ ( 13) GOTO1040 

1030 IFZH$<CHR$(32)GOTO1010 

1040 IFZH$OCHR$(8)GOTO1070 

1050 IFZG«1GOTO1010ELSEPRINTCHR$(24) ; 

1060 ZG-ZG-1:GOTO1010 

1070 IFZH$OCHR$(9)GOTO1090 

10 80 IFZG>«=ZAGOTO1010ELSEPRINTCHR$(25) ; : ZG«ZG+1:GOTO1010 

1090 IFZH$OCHR$(13)GOTO1100ELSEPRINTezC,CHR$(15) ;STRING$( ZA+1 ,32) 

; : PRINTSZC , ZA$ ; : ZA$«LEPT$ ( ZA$ , ZG-1) : RETURN 

1100 ZG=ZG+1 

1110 IFZG>ZA+1PRINTCHR$(24) ; 

1120 IFZG>ZA+1ZG-ZG-1 

1130 PRINTZH$; : IFZHS-" , "THENZH$*CHR$( 129) ELSEIFZH$=" : "THENZH$-CHR$ 

(130) 

1140 ZA$«LEFT$ ( ZA$ , ( ZG-2) ) +ZHS+RIGHTS { ZA$ , ZA-ZG+1) :GOTO1010 

1200 REM 

VARIABLE LIST 

DESCRIPTION 



1210 REM 




1220 REM 


VARIABLE 


1230 REM 




1240 REM 


AP$() 


1250 REM 


AU$() 


1260 REM 


D$ 


1270 REM 


DM$ 


1280 REM 


DM% 


1290 REM 


DN$() 


1300 REM 


DSSO 


1310 REM 


DS% 


1320 REM 


DX$ 


1330 REM 


ES 


1340 REM 


F$ 


1350 REM 


FI$ 


1360 REM 


FR$ 


1370 REM 


GR$() 


RD 




13 80 REM 


GR% 


13 90 REM 


H2$ 


1400 REM 


H3S 


1410 REM 


1% 


1420 REM 


IM%() 


1430 REM 


IPSO 


1440 REM 


IS%() 


1450 REM 


K$ 


1460 REM 


MR% 


1470 REM 


NS 


14 60 REM 


N% 


1490 REM 


PG$() 


1500 REM 


SD$() 


1510 REM 


SR% 


1520 REM 


X% 


1530 REM 


XM% 


1540 REM 


XS% 


1550 REM 


ZA 


1560 REM 


ZA$ 


1570 REM 


ZC 


1580 REM 


ZF 


15 90 REM 


ZG 


1600 REM 


ZH$ 


1610 REM 


ZX 


UT 




1620 REM 


zz 



APPLICATION IN SUB RECORD 

AUTHOR IN SUB RECORD 

DELETE SWITCH 

DUMMY RECORD FOR BUFFER 

MAIN RECORD NUMBER OF DELETED RECORD 

DISK NAME IN SUB RECORD 

DESCRIPTION IN SUB RECORD 

SUB RECORD NUMBER OF DELETED RECORD 

DUMMY STRING FOR START-UP 

EDIT STRING 

COMMENT STRING ('NOT FOUND' OR 'FINISHED' 

FILE SPEC OF INDEX FILE 

FILE SPEC OF RANDOM FILE 

GRANS (OBTAINED FROM MKI$(GR%) IN SUB RECO 

GRANS 

HEADING 

HEADING 

TEMP - USED IN FOR NEXT LOOPS 

MAIN RECORD NUMBER IN INDEX FILE 

PROGRAM NAME IN INDEX FILE 

SUB RECORD NUMBER IN INDEX FILE 

TEMP - INKEY$ 

MAIN RECORD NUMBER 

NEW FILE SWITCH {~'Y m IF NEW FILE) 

NUMBER OF RECORDS ON INDEX FILE 

PROGRAM NAME IN SUB RECORD 

SIDE IN SUB RECORD 

SUB RECORD NUMBER 

TEMP - 1% IN SUBROUTINE 700 

TEMP - MR% IN SUBROUTINE 700 

TEMP - SR% IN SUBROUTINE 700 

TEMP - USED IN INPUT ROUTINE 1000 

TEMP - RESULTS OF INPUT ROUTINE 

TEMP - CURSOR POSITION FOR INPUT ROUTINE 

TEMP - USED IN INPUT ROUTINE 

TEMP - USED IN INPUT ROUTINE 

TEMP - USED IN INPUT ROUTINE 

TEMP - POINTS TO BEGINNING OF LINE FOR INP 

TEMP - LENGTH OF FIELD FOR INPUT ROUTINE 



Program Listing 4. Adds and sorts two indexes. 

1 REM RANDISK1/BAS JN GOODALE 03/27/82 

3 REM CREATE KEY INDEX FILES FOR FIELDS 

4 REM OF A RANDOM FILE. 

9 REM INITIALIZE 

10 CLEAR23000:DEFINTA-Z:DIMIP$(500) ,IA$(500) ,IM%(500) ,IS%(500) ,S%( 
500) 

20 FR$-"DISKINDX/RND:1":CLS:PRINT'READING PROGRAM INFORMATION FILE 

50 0PEN"R",1,FR$:FIELD1,255 AS DX$:LSET DX$-STRING$ ( 255, "X") :FORI% 
-0TO3:FIELD1,(I%*57)AS DM$,12 AS PG$(I%) ,4 AS AP$(I%),8 AS DN$(I%) 
,1 AS SD$(I%),2 AS GR$(I%),10 AS AU$(I%),20 AS DS$( 1%) :NEXTI% 
100 N%-0:FORMR%-1TOLOF(1) :GETl,MR% 
110 FORSR%=0TO3 

Listing 4 continued 



PASCAL -80 Cm. 

The ^ 

^Jr Can't 
X* Buy it! 



If we wanted to. we could sell our 
other products to the communists, 
but the Department of Defense 
won't let us sell them Pascal 80! 
NOW you can learn the language 
that is too powerful for the Red 
Army! 

Pascal 80 is the easiest version of 
Pascal to learn. Hundreds of 
schools, including top universitites 
are now using Pascal 8C to teach 
Pascal. 

With the editor and compiler in 
memory, you can compile and run 
a short program in under 5 
seconds. But you also get 
extensions to Pascal that give you 
screen control, random access 
files, calls to machine language 
and the ability to create turn-key 
packages. Pascal 80 is a nearly 
complete subset of standard 
Pascal, including structured types, 
records, pointer variables and files 

--TRS-80 Models I. Ill and 4-- 
Pascal 80 - $79 + $2 shipping 

Graphics Extensions for Radio 
Shack hi-res board - $39 

Pascal 80 Trial Version -$15 

--for CP/M 80 2.2 or 3.0-- 
Kaypro. LoboMax 80, Apple, Epson 
Osborne, and other computers. 
Call or write for other formats 
Pascal 80 CP/M - $39 + $2 
shipping 

Pascal 80 School Package 
(TRS-80 or CP/M versions) - $279 



NEW (CLASSICS 
SOFTWARE 



239 Fox Hill Road 

Denville, NJ 07834 

201-625-8838 



See List of Advertisers on Page 145 
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MUSI-PRINT 

Publish Your Own Music! 




* Three print styles with multiple 
strike option. 

* Simple editing features with full 
screen view of music. 

* Prints up to 43 consecutively- 
numbered pages of music. 

* Single line, keyboard, voice and 
full score formats. 

* All common musical symbols. 

* Range three lines below staff to 
four lines above. 

* For composers, arrangers, teachers 
and students. 

For complete information, write: 
JRM Publications. LTD. 

P. O. Box 10065 ^229 

Greensboro. NC 27404 



Easy to program with your Model I/III/TV, 
48K Disk and Epson MX -80 Printer 
with Graftrax. 



XENIX 



poolut i 1 



SPUQI HANAGtntNl Uril MY r UK IKS II Nil 



I **y * " >!■»(■ atnu dr i vrn |i(ogr4« win i < h ■* I I oms 
ytxj t a »jii I pul at a> thf r .-pi" t * m«i I itwq ><m 



With '.poulnlil y(HI i «t»; 

%usptnd/rt«t if t i>r i ri t i < ig I i *t pf wit tjiu 

- C«nc«I printing print «*tr« ci 

fhinq# print %tqut<u e nhji h aiv p 

Kequirts no hrx*Mleclgv ot X*»ni. r n— full 
SAVt TINl . . . &AVI HAPJH . . . SAV| n(>Nt ' 



«--! 



rmenu 



usth FKIFNDIY MENUS FOR IHS IfcNII 
i I r L'Flll u&er liinuii, ■■III 11 lor > 



id jppin jiiirn program ti 



t<*ruvt hy*ta>« itLur It^ 
lu choii»s im Mfiu. 



rps ] ucj^ (optionally! un d U 
No progr«iMing is reqjul 



ipoolutil »Vf 



»V9 



both for »183 

SOFTWARE ONE 
VISA 983 Torray Hill Driv» BjslirCjrd 

Colurtui, Ohio 43228 
(614) 279-8493 



listing 4 continued 

IM%(N%) =MR% :IS% (N%) =SR%:IP${N%) =PGS(SR%) :IA$(N%) =AP${SR%) 

N%=N%+1 

NEXTSR% 

NEXTMR%:N%=N%-1 

REM MAIN ROUTINE 

CLOSE1:FI$="DISKINDX/INA:1":GOSUB240:W=1:W$="APPLICATION":GOSU 



120 

130 

140 

150 

199 

200 

B30C 

210 

230 

240 

270 

299 

300 

310 

320 

330 

340 

360 

370 

899 

900 

920 



FI$="DISKINDX/INP:1":GOSUB270:W=2:W$=" PROGRAM" :GOSUB300 

GOTO 900 

CMD"O",N%+1,*S%(0) r IA$(0) :RETURN 

CMD"O",N%+1,*S%(0) ,IP$(0) :RETURN 

REM DO IT 

PRINT :PRINT"WRITING : " ;W$:0PEN"0" ,1,FI$ 

FORI%=0TON% :S%=S% ( 1%) 

ONWGOTO330 f 340 

F$=IA$(S%) :GOTO360 

F$=IP$(S%) :GOTO360 

PRINT#1 , F$ ; " , " ; IM% ( S% 

NEXTI%:CL0SE1: RETURN 

REM END OF JOB 

PRINT" ": PRINT" END OF JOB 
END 



,";IS%(S%; 



Program Listing 5. Searches random file using indexes created by Listing 4. 

1 REM LOOKDISK/BAS JN GOODALE 

3 REM SEARCH AND DISPLAY RANDOM FILE OF PROGRAM 

4 REM INFORMATION USING A SEQUENTIAL FILE TO 

5 REM REFERENCE THE RECORDS 

9 REM INITIALIZE 

10 CLEAR28000:CLS:PRINTTAB( 15) "SEARCH/DISPLAY PROGRAM INFORMATON F 
ILE":PRINTe340,"INITIALIZING":DEFINTA-Z:DIMIP$(500) , IM% (500) ,IS% (5 
00) :E$="##":H2$="PR0GRAM APPL DISK S GR AUTHOR DESCRI 
PTION":H3$=STRING$(63,"=") 

20 FR$="DISKINDX/RND:1" 

30 CLS:PRINTTAB( 20) "SEARCH/DISPLAY PROGRAM" : PRINT: PRINTTAB( 15) "USI 

NG ONE OF THE FOLLOWING KEYS : " :PRINTTAB ( 20) "1) PROGRAM" : PR I NTT AB 

(20) "2) APPLICATION" 

40 PRINT: PRINT'ENTER CHOICE (DO NOT HIT <ENTER>) — > " ; 

50 K$=INKEY$:IFK$=""THEN50ELSEPRINTK$:ONVAL(K$)GOTO80,90 

60 GOTO30 

80 L=12:C$="PR0GRAM NAME" :C=1:FI$="DISKINDX/INP: 1" :GOTO120 

90 L=4:C$="APPLICATION":C=2:FI$="DISKINDX/INA:1":GOTO120 

120 N%=0:OPEN"I",1,FI$ 

130 INPUx#l,IP$(N%) ,IM%(N%) ,IS%(N%) : IFEOF ( 1) THEN140ELSEN%=N%+1 : GOT 

0130 

140 CL0SE1:0PEN"R",1,FR$:FIELD1,255 AS DX$:LSET DX$=STRING$ ( 255 , "X 

") :FORI%=0TO3:FIELDl,(I%*57)AS DM$,12 AS PG$(I%),4 AS AP$(I%),8 AS 

DN$(I%),1 AS SD$(I%),2 AS GR$(I%),10 AS AU$(I%),20 AS DS$(I%):NEX 
TI% 

150 CLS:PRINTTAB( 15) "DISPLAY PROGRAM INFORMATION FILE" : PRINT:PRINT 
TAB(20)"1) SEARCH ":PRINTTAB( 20) "2) DISPLAY ALL" : PRINTTAB ( 20) "3) 

RESTART" :PRINTTAB( 20) "4) END" : PRINT:PRINT" .... CHOICE (DO NOT 
HIT <ENTER>) ..>> ";: 

160 K$=INKEY$:IFK$=""THEN160ELSEPRINTK$:ONVAL(K$)GOTO180,240,460,4 

70 

170 GOTO150 

180 CLS: PRINTTAB (20) "SEARCH ON : ";C$: PRINT 

190 PRINT"ENTER " ;C$; : INPUTS$:LC%=1 :H1$=S$:LM%=0 :GOSUB410 

200 S$=S$+STRING$(L-LEN(S$) ," ") :FORI%=0TON% : IFS$=IP$ ( 1%) THENGOSUB 

300 

210 NEXTI%:GOSUB360:GOTO150 

240 LC%=1:CLS:PRINTTAB(10) "DISPLAY FILE IN SEQUENCE BY :";C$:H1$=C 

$ 

290 GOSUB410:LM%=0:FORI%=0TON%:MR%=IM%(I%) :SR%=IS%(I%) :GOSUB310:NE 

XTI%:PRINT"END OF FILE" :GOSUB3 80 :GOTO150 

300 MR%=IM%(I%) :SR%=IS%(I%) 

310 IFMR%OLM%THENGETl,MR% 

320 LM%=MR%:XS%=SR%:GOSUB440 

330 PRINTPG$;TAB(13)AP$;TAB(18)DN$;TAB(27)SD$;TAB(29)USINGE$;GR%; : 

PRINTTAB (32) AUS;TAB(43) DS$ 

340 IFINT(LC%/10)«=LC%/10THENGOSUB380:GOSUB410 

350 LC%=LC%+1: RETURN 

360 PRINT'END SEARCH ON ";S$:G0SUB3 80: RETURN 

370 REM CONTINUE OR QUIT PROMPT 

3 80 PRINTS 960, ".. 'Q 1 TO QUIT <ENTER> TO CONTINUE "; 

390 K$=INKEY$:IFK$=""THEN390ELSEIFK$="Q"THENGOTO150 
400 RETURN 

410 CLS :PRINTTAB( 10) "PROGRAM INFORMATION FILE BY ";Hl$ 
420 PRINT: PRINTH2 $ : PRINTH3 $ : RETURN 

430 REM DEFINE DATA 

440 PG$=PG$(XS%) :AP$=AP$(XS%) :DN$=DN$ (XS%) :SD$=SD$(XS%) :GR%=CVI(GR 
$(XS%) ) :AU$=AU$(XS%) :DS$=DS$(XS%) :RETURN 

450 REM END OF JOB 

460 RUN 

470 CLOSEl:PRINT" ":PRINT"END OF JOB"; 

End 
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LOGICAL SYSTEMS 



© 1984 



TRSDOS is a registered 
trademark ot the Tandy 
Corporation 



LOOS is a registered 
trademark ol Logical 
Systems. Inc. 




Prices and specifications subject 
to change without notice. 



' TBA is a text preprocessor that 

translates structured BASIC "source" 
into interpreter executable programs 
Supports long variable names and 
named references/procedures, along 
with conditional translation $79. 

' BSORT/MOD324 is an advanced 
machine language sort for M4 BASIC 
Multiple key/tag arrays, 1 or 2 dimen- 
sion, string or numeric arrays 
MOD324 does most of the restructur- 
ing to allow M3 BASIC programs to be 
run under M4 BASIC. $49. 

" DiskDISK allows the partitioning of 
large volume drives into smaller logical 
volumes which "look" just like addi- 
tional floppy drives This should be con- 
sidered a must for hard disk or other 
"large" drive users $99. 



4. "FED II is an all-purpose File/Disk 

editor for LDOS or TRSDOS 6 Bytes 

may be modified in either ASCII or 
HEX. Location may be done via search 
string, load address or record number 
Shows disassembly of /CMD files $49. 

5. ' File Manager will handle all those 

COPY. MOVE, PURGE or BACKUP 
jobs with ease Faster and more ver- 
satile than BACKUP or PURGE, FM 
can also produce a "script" for later ex- 
ecution through JCL $49. 

" The LSI HELP System is a complete 
series of packages to provide on-line 
help information to LDOS/TRSDOS 6 
users Packages are available for 
DOS/BASIC help, Technical help, and 
the development of additional "HELP" 
information files Prices start at $29. 



JOGICAL 
TYSTEMS 
VC. 30 

TOLL 



7.' ■ LS-HOST/TERM is a complete Mod 
4 communications system Includes 
ADDS25 terminal emulator XMODEM 
file transfer utility for error-free transfer, 
HOST program with password protec- 
tion and much, much more. Ideal for 
use with XENIX $199. 

8. " LED is the LSI full-screen text EDitor. 
Uses all LDOS special features (KSM, 
filters/drivers, ...). Excellent for editing 
KSM and JCL source files T6 version 
includes block write to disk" and "in- 
sert file at cursor". $49. 

9." LS-QFB/Comp consists of two 
utilities OFB performs a "fast" mirror- 
image backup of a disk, formatting the 
destination disk in the process. Comp 
will compare any two disks or files, with 
differences to display or printer $49. 

10.' * The LS-Utility Disk is a collection of 

the most popular LSI filters and utilities 
re-written for use under TRSDOS 6 on 
the Mod 4 Includes KSMPLUS. MAX 
LATE. CALC, READ40 and much, 
much more $49. 



The SYSTEM 



"The Source" is 'The* com- 
mented source code for TRSDOS 
6.2 A must for all TRSDOS 6 pro- 
grammers. Complete three volume 
set is $249. 



SHIPPING & HANDLING 
NOT INCLUDED 



LDOS Quarterly back issues are available, 
and are highly recommended for all LDOS 

users 



FREE ORDERLINE (800) 248-3535 



Write or call for 
our tree catalog. 



8970 North 55th Street / P.O. Box 23956 / Milwaukee, Wl 53223 



UTILITY 



by Andy Levinson 



PATCH WORK 



You get a paging directory, pause control for program listings, full 

error messages, file identification with the Auto command, and 

more with these 13 patches to TRSDOS 1.3. 



Tired of TRSDOS 1.3? If your 
answer is yes, take comfort in 
the fact that you're not alone. 
While Model III TRSDOS is a vast im- 
provement over TRSDOS 2.3, it isn't 
perfect. I've developed a series of patch- 
es, however, that promise to smooth 
some of TRSDOS 1.3*8 rough edges. 

The 13 patches included here make 
TRSDOS 1.3 a more efficient operating 
system. They give you an abridged TRS- 
DOS directory, correct a TRSDOS bug 
for nonexistent files, display a directory 
one page at a time, pause a program or 
directory listing with the same com- 
mand, eliminate the need for a 
colon with the Directory command, 
identify a file you load with the Auto 
command, list free disk space in detail, 
provide full error messages, refine the 
TRSDOS Ready prompt, change the 
TRSDOS boot-up banner, administer a 
better formatting test for new disks, and 
eliminate TRSDOS's "Operation 
Aborted" message. You don't have to 
install all the patches; rather, you can 
pick and choose as you please. 

The Patches 

You install the patches with the TRS- 
DOS Patch command. It's simple to 
use. Start at TRSDOS Ready, type in the 
patches you want, check for typographi- 
cal errors, and press the enter key to 
finish the command. If you get an error 
message, try to figure out what went 
wrong before continuing. You must 
copy all the command lines listed in the 
patch you select. For example, if the 
patch consists of four patch lines, you 
must enter all four lines, as four separate 
TRSDOS commands. Don't enter any 
other DOS commands until you've com- 
pleted all patching. 

Patch 1, the Catalogue command, 
gives you an abridged directory from the 
TRSDOS Ready prompt, eliminating 
the problems associated with TRSDOS 
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1.3*8 Directory command. Patch 1 
eliminates TRSDOS's Route command 
and "Operation Aborted" message, so 
it doesn't use additional disk, directory, 
or memory space. The directory listing, 
however, isn't as complete as the original 
TRSDOS listing. 

To install this patch correctly, first 
make sure that your TRSDOS 1.3 short 
directory routine in Basic works and 
then type in the patch. To call the new 
command, type CAT or CAT (drive 
number) from TRSDOS Ready, and 
press the enter key. 

Note that section (a) of Patch 1 con- 
tains the two patches issued by Radio 
Shack (see TRS-80 Microcomputing 
News, October 1981, p. 13). Ignore sec- 
tion (a) if you've already incorporated 
this change. Type in the patch as listed: 

(a) Radio Shack fix: 

PATCH * 10 (ADD = 4E2E.FIND = CD3E4B. 

CHG = CD8A50) 
PATCH *10 (ADD = 508A.FIND = 4469736B, 

CHG = 4FC33E4B) 

(b) The Catalogue command: 

PATCH *1 (ADD - 50A9.FIND = 4F7065726174, 

CHG = 0D7EFE343004) 
PATCH '1 (ADD 50AF,FIND = 696F6E2O4162, 

CHG = FE303O023E3O) 
PATCH *1 (ADD ■ 50B5.FIND = 6F727465640D, 

CHG = 327 142C3 1944) 
PATCH *1 (ADD - 51C9.FIND ■ 524F55544520 

A842.CHG = 434154202020AA50) 

Patch 2 fixes a bug in TRSDOS 1.3 
that results when TRSDOS tries to list 
nonexistent files in the disk directory 
hash index table. The code for Patch 2 is: 

PATCH *10 (ADD - 4E47.FIND = 02.CHG = 03) 

Patch 3 modifies the Directory com- 



The Key Box 

Model m 
TRSDOS 1.3 



LOAD*) 



mand so that it displays directory files 
one page at a time. Once you install this 
patch, type in DIR, press the enter key 
and the usual long- format directory ap- 
pears. However, if there are too many 
entries for one screen, the listing stops 
and waits for you to press the enter key 
before displaying the next set of entries. 
Type in Patch 3 as listed here: 

PATCH *6 (ADD = 616D.F1ND = CD8861 B7C8 

FE40.CHG = 3A803FD62OC8CD) 
PATCH *6 (ADD = 6174.FIND = 2806C547AF78 

CI, CHG = 7C61CDC901 AFC9) 

Patch 4 applies to TRSDOS 1.3's List 
command. When you list a file from 
TRSDOS Ready, the display scrolls un- 
less you pause the listing by pressing the 
@ key. This patch changes the pause 
control to the shift-@ key combination. 
The command is the same as that in 
Basic, and therefore much easier to 
remember. The code for Patch 4 is: 

PATCH • 1 1 (ADD = 5265.FIND = 40.CHG = 60) 

Patch 5 is similar to Patch 4 except 
that it applies to TRSDOS 1.3's Direc- 
tory command. It lets you pause a long- 
format directory listing by pressing the 
shift and @ keys at the same time, rath- 
er than pressing the @ key alone. The 
reason for this patch is compatibility: It 
makes the pause control for both the 
Basic List and the Directory commands 
the same. Patch 5 shouldn't be applied 
if you've installed Patch 3. Here's the 
code for Patch 5: 

PATCH *6 (ADD = 6173.FIND = 40.CHG = 60) 

Patch 6 gives you the option of in- 
cluding (or not including) a colon when 
naming the disk drive for the Directory 
command. The code is: 

PATCH *6 (ADD = 59EC,FIND = 7EFE3A2015, 

CHG = 2BCD781D38) 
PATCH '6 (ADD = 59F1. FIND = 237ED630DA. 

CHG=06FE3A2010) 
PATCH '6 (ADD = 59F6,F1ND = 3452FE04D2, 

CHG - 237ED630DA) 



Patch 7 works with the Auto com- 
mand. When you use the Auto function, 
your computer displays the name of the 
file you're automatically loading, rather 
than just the message "Auto Function 
Engaged." Type in this patch as: 

PATCH *0 (ADD = 4F60.FIND = 6B4F, 
CHG = 2542) 

Patch 8 not only tells you where you 
have free disk space, but also the 
amount of space, in grans, available. 
To make room for this patch, I had to 
modify the password message of the 
Prot (PW) command. After you add 
Patch 8, you're asked "New Master?" 
instead of "New Master Password?" 
The code for Patch 8 is: 

PATCH *6 (ADD = 5D52.FIND = FE28D0, 

CHG = CD4555) 
PATCH *6 (ADD = 5542,FIND = 2050617373, 

CHG = 3F2003FE28) 
PATCH »6 (ADD = 5547.FIND = 776F72643F, 

CHG = D8F1C3FC5B) 

Patch 9 is a one-byte patch that 
makes an entire error message appear 
rather than the error number. Once this 
patch is in place, you'll see the message 
without having to enter another com- 
mand. The code for this patch is: 

PATCH *4 (ADD = 4E28.FIND = 20.CHG = 18) 

Patch 10 eliminates the row of dots 
that TRSDOS 1.3 displays after the 
TRSDOS ready prompt. The code for 
this patch is: 

PATCH *1 (ADD = 4E75,FIND = 063E3E, 
CHG = C37E4E) 

Patch 11 shortens the TRSDOS 1.3 
opening banner from a picture of the 
computer to a single line. It also skips 
the time and date prompts when you 
boot-up. A minor problem with this 
patch is that new files created usually 
have garbage for the date, although the 
file itself isn't affected. If this bothers 
you, install only the first three of the 
four patch lines for Patch 11. The code 
is as follows: 

PATCH *0 (ADD = 5039.FIND = 20.CHG = 0D) 
PATCH *0 (ADD = 508A.FIND = 28.CHG = 0D) 
PATCH »0 (ADD = 516C.FIND = DO.CHG = 0D) 
PATCH *0 (ADD = 4EA9.FIND = CA.CHG = C3) 

Patch 12 provides a better formatting 
test for new disks. Once you install 
Patch 12, you can expect more disks to 
fail the formatting test, but it's better to 
lose a marginal disk than to lose your 
important data. Here's the code for 
Patch 12: 

PATCH *7 (ADD = 5BEE.FIND = E5.CHG = 5B) 

Patch 13 eliminates the "Operation 
Aborted" message. Don't apply this 
patch if you've already installed Patch 
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LNW'STEAM COMPUTER 


$1095 


MODEMS 

SIGNALMAN MARK VII 300 BD 99 


COMPUTERS 




SIGNALMAN MARK XII 1200 BD 279 
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POWER 

ISNT EAS 



Why did Southern Software, who 
usually make hard tasks easy*, 
develop a database manager that's 
not dead simple? Because it's a fact 
of life: true database management 
is a very deep subject. The world of 
data relationships can be infernally 
complex; ENB gives you the free- 
dom to describe this complexity. 

HOW? It's all in the metaphor. 
ENB implements ordered sets, with 
relations/functions between sets. 
Nice properties fall out of this 
model. (Example: Editing the set of 
SETS changes db structure, no re- 
blocking needed. Do it anytime, 
with inbuilt reports keeping track of 
current structure.) Staying on top of 
power like this can be tough. 

ENB has: Tru« relational accoss, integrated data 
dictionary, variable length balds, generaliied 
records, selection on any criteria, no data redundancy. 
Banc interface, Scripiit/VuiCalc hie exchange, 
uiei any TRS-80 Mod I/ID DOS, spans up to 4 drives 
or hard disk, incl utilities. S action -tutorials, 145 p. 
manual, lots more 

Don't think you'll master ENB 
overnight; power isn't easy. 
But then, the world 's not simple . 



100 



BUT NOW $ 

IT COSTS LESS! 

Regularly $140. 

Now, until December 31, 1984 - 

$100 + $3 s/h CA add 6% 

EDIT-. Onto, hdl ""~J2?iS 

S" (and SBE) pro-am.. Mod.U/m 

$40+$150t/h 

r $ 57rsS:^Xdv2ooo^60 + s3 
(415) 681-9371 3E 




Patching is 

an easy way 

to change a file; 

all you 
have to do is copy 

and enter 
a few lines of text. 



1. The code for Patch 13 is: 

PATCH * 1 (ADD = 50A9.F1ND - 4F.CHG = 0D) 

One final note— the patches won't 
take effect until you reboot your disk. 

Before Patching 

When installing a new patch, always 
use a back-up disk as the Patch com- 
mand permanently modifies the ma- 
chine-language system programs stored 
on disk. Only patch more important 
disks when you're sure that the patches 
work as expected; a typographical error 
could ruin your disk in seconds. If 
you've applied non-Radio Shack patch- 
es to TRSDOS 1.3, the patches given 
here might not work. 

One way to avoid errors is to create a 
do-file. With the Do and Build com- 
mands, you only have to type in the 
patches once. The do-file is then used to 
correctly patch as many disks as de- 
sired. The procedure for using these 
commands is explained in the TRSDOS 
1.3 manual (also see Douglas Payne's 
"Brick by Brick," 80 Micro, April 
1984, p. 58). 

Another option is to use a word pro- 
cessing program to create and edit do- 
files. A do-file is an ASCII file and most 
word processing programs work with 
ASCII files. All you have to do is write 
command lines, each with 63 characters 
(or fewer), and a carriage return at the 
end. Then save the file in ASCII for- 
mat. You should select a file name end- 
ing with the /BLD extension. With a 
word processor, you can create a master 
file containing all of the patches listed 
here. From this master file you can de- 
lete and combine the various lines to 
create new, customized do-files that 
contain the specific patches that you 
want to install. 

Understanding the 

Patch Command 

The Patch command changes infor- 
mation at a specific location in a disk 
file. It's an easy way to change a file 



since all you have to do is copy and en- 
ter a few lines of text. The programmer, 
on the other hand, must first determine 
what changes you want made, and then 
must find available space in the pro- 
gram file to apply those changes. If the 
file is full, then you must overwrite ex- 
isting Z80 computer instructions with 
the new patches. The command format 
for a patch is as follows: PATCH file- 
name (ADD = XXXX, FIND = YY, 
CHG = ZZ). 

The first item of information is the 
file name, necessary so that TRSDOS 
can find the file and apply the patch. 
Because TRSDOS 1.3 system files don't 
have file names, use the format, *#:$, to 
identify the decimal number (#) and 
disk drive ($) of that system file. 

The second item of information in 
the Patch command indicates where 
you should make the changes. This in- 
formation is provided by ADD = XXXX, 
the next variable on the command line. 
The "XXXX" is a hexadecimal number 
representing a memory address. The 
third item, "F1ND = YY", reveals the 
contents of the disk file at that patch 
location. Again, the "YY" represents a 
hexadecimal number; it's possible to 
have more than one hexadecimal 
number in a Patch command. 

You should know what's on the disk 
before installing a patch because TRS- 
DOS 1.3 won't complete the patch if the 
numbers indicated in Find don't match 
those on the disk file. The advantage of 
patching with TRSDOS 1 .3 is that while 
it may take longer, it's almost impos- 
sible to install a patch in the wrong lo- 
cation. 

The final item of the patch format 
command, "CHG = ZZ", indicates the 
new information you want on disk. In 
doing this, TRSDOS 1.3 checks to 
make sure that the number of Find 
bytes you need are equal to the number 
of Find bytes available. If there's no 
match, the command is aborted with an 
error message. Otherwise TRSDOS 
writes the "CHG" bytes to the disk file 
where the Find bytes had been. The ac- 
tual switch is made in memory and then 
written to disk as a modified file sector. 
For this reason, you can't write-protect 
your disk when you're patching a file. If 
you're skilled in hexadecimal math and 
machine language, you can make minor 
modifications to a machine-language 
program without having to re-create the 
file with an editor/assembler. ■ 



Write to Andy Levinson at 11575 
Sunshine Terrace, Studio City, CA 
91604. 
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HAS YOUR 

COMPUTER SUPPLIER 

DESERTED 

YOU? 



Look no further. 

Perry Computers can meet all 

your needs for major brand Hems. 



Perry Computers has been In the computer 
business for seven years, and will be there 
when you need us. We don't believe In 
deserting you. 

Shop With us Toll Free - Simply call our Toll 

Free number to place your order bur 
knowledgeable & courteous staff will be glad to 
take your order and answer your questions 

Choose From Top Quality Merchandise - All 

merchandise sold by Perry Computer is name 
brand with manufacturer's warranty All Items are 
the same as you would buy locally 100% 
original, no upgrades If a problem does occur, 
just call us on our Customer Service Hotline 
517-625-4268. 

FOR ORDERS CALL 1-800-248-3823 

□ □□□□ 

□ □□□□ 

mmmrm 



Watch For Monthly Specials - Or a variety 
of systems and accessories if you are stepping up 
to a more powerful system, expanding or a first 
time user, be sure to call about products and 
prices 

Name Brands - RADIO SHACK. EPSON, 
COLUMBIA. SANYO, COMREX, OKIDATA. 
TRANSTAR. STAR. AMDEK, BOTEK. ELEPHANT. 
HAYES. VERBATIM, JUKI. SCOTCH. GORILLA. 
VIDEO PLUS. TELEWRITER. VIR TOM MIX. 
C.ITOH. SKC. MANNESMAN TALLY. ANCHOR 
SIGNALMAN. IDS. KEYTRONICS. MOUSE 
SYSTEMS. PRINCETON GRAPHICS. ANADEK. 
CARDCO. TOSHIBA, ORANGE MICRO. 
MICROBUFFER AND MORE If you don't see 
what you're looking for. give us a call If at all 
possible we'll get if for you 
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SCIENCE 



by Mike O'Neal 



Formula 
Solutions 



Cubic saves you time and frustration 
by solving complex equations. 



Complex mathematical formulas 
have always intrigued me. How- 
ever, solving these equations by 
trial and error, or by the quadratic formu- 
la, can become tedious and time-consum- 
ing. Why not let your computer do the 
work? I wrote Cubic to solve real or com- 
plex roots of cubic, quadratic, and linear 
algebraic equations. 

Using Cubic 

Type in and save Cubic (see Program 
Listing 1, 2, or 3, depending on your sys- 



tem). When you run the program, it dis- 
plays the prompt seen in the Figure. 
Cubic always displays the formula for a 
cubic equation (where the greatest expo- 
nent is three) and prompts you to enter 
values for the variables A, B, C, and D. 

To solve for a quadratic equation 
(where no exponent exceeds 2), you need 
to zero out the first term in the equation 
by entering a zero for the value of A. 

For a linear algebraic equation (no ex- 
ponent), enter a zero for both the coeffi- 
cients A and B. 



THIS PROGRAM FINDS ROOTS OF CUBIC EOUATIONS 

OF THE STANDARD FORM: F(X) = A*X'3 + B*X'2 + C*X + D 

PLEASE INPUT THE COEFFICIENTS A,B,C f D ? l r 3 f -4,-12 

THE FIRST REAL ROOT IS X0 = 2 

THE OTHER 2 ROOTS ARE 

XI ■ -2 

X2 = -3 

Press <ENTER> to END program. CHECK #? -2 

F (-2 ) = 

Press <ENTER> to END program. CHECK #? 

READY 



Figure. Cubic prompts you to enter equation coefficients, then solves for the 
equation 's roots. 



Program Listing I. Cubic for the Model I. 



' CUBIC/I VERS 2/15/84 by Mike O'Neal 

30 PRINT'THIS PROGRAM FINDS ROOTS OF CUBIC EQUATIONS" 

40 PRINT'OF THE STANDARD FORM: F(X) = A*X'3 + B*X'2 + C*X + D' 

50 INPUT'PLEASE INPUT THE COEFFICIENTS A,B,C,D " ; A3 ,A2 ,Al ,A0 

60 PRINT: IFA3O0THEN100 

70 IFA2O0THENA-A2:B-A1:C=A0:PRINT"THE"; :GOTO190 

80 IFA1-0THEN50 

90 PRINT'THE ONLY ROOT IS X = " ; -A0/A1 : END 

100 'CUBIC 

110 S-=1:L=0:P-1 

120 S=1-S:L=1-L:GOSUB300:IFYSOYLTHEN140 

130 S=-S:L— L:GOSUB300:IFYS=YLTHEN120 

140 H« (S+L) /2 :GOSUB290 : IFYSOYHTHENL-HELSES-H 

150 IFABS(L-S)<PTHENP=ABS(L-S) :GOTO140 

160 PRINT'THE FIRST REAL ROOT IS X0 = " ;H: PRINT"THE OTHER"; 



Listing I continued 



As an example, consider the cubic 
equation X 3 + 3X 2 -4X-12 = 0. Coeffi- 
cient A equals 1 because there's only one 

X to the power of three, B equals three 
because there are three X's squared, C 
equals negative four because four X's are 
subtracted, and D equals the constant 
- 12. To solve this equation, you enter 
the values 1, 3, -4, - 12, at the coeffi- 
cient prompt. 

Once you enter the coefficents, Cubic 
displays the real roots of the equation. 
There are three solutions to this sample 
problem: 2, -2, and -3. 

Cubic then lets you check the veracity 
of these numbers by prompting you to 
substitute a number for X in the equa- 
tion ("CHECK*?"). You can thus 
reenter and verify Cubic's solutions. 
This is handy for rechecking suspicious 
answers. 

Consider this quadratic equation: 
-2X 2 +11X-15 = 0. The coefficients 
here are A = 0, B = -2, C=ll, and 
D= - 15. The first coefficient is zero 
because there's no X J term in the quad- 
ratic equation; any term not present is 
considered to have a coefficient of 0. 
The two solutions to this quadratic are 

XI =2.5 and X = 3. 

Complex Roots 

Cubic also works with complex roots. 
Consider this equation: X 2 - 6X + 25 = 
0. The coefficients are 0, 1, -6, 25, 
while the solutions are the two complex 
conjugates 3 + 4i and 3-4i, displayed 



The Key Box 



lOADIO 



Models I, in, 4, 1000, and 2000 
16K RAM Cassette Basic 
32K RAM Disk Basic 
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Using the quadratic 
formula, Cubic solves 
the remaining equation. 



as 3 ± 4i (i stands for imaginary, mean- 
ing the square root of negative one). 

To solve X 2 = - 9, substitute 0, 1 , 0, 9 
into the program for the result X = 3i or 
X=-3i. 

Program Structure 

Programmers will notice that Cubic 
uses the notation X*X*X to cube a 
number instead of X\ which calls the 
computer's built-in exponent capabili- 
ty. My reasoning here is that it's more 
efficient for Basic to multiply the 
numbers when the exponent is small. 
With the built-in exponent function, 
Basic first must logarithmically convert 
both the X and the power, then multiply 
the two numbers together, taking the in- 
verse log to obtain the result. 

Cubic first must determine if it's solv- 
ing a cubic, quadratic, or simple linear 
equation. Line 100 of all three listings 
initiates the search for the point where 
the function crosses the X-axis. Once 
the first zero is located, Cubic puts the 
equation into its quadratic form. Using 
the quadratic formula, Cubic then 
solves the remaining equation. If the 
equation is already quadratic, Cubic 
jumps to line 190; if it's a linear equa- 
tion, Cubic uses simple algebra to solve 
for the answer at line 90. 

Cubic Versions 

I've included three versions of Cubic: 
The first version (Program Listing 1) is 
for the Model I Level II tape or disk 
system, the second version (Program 
Listing 2) is for Model III Disk Basic, 
the third version (Program Listing 3) 
applies to the Models 4, 1000, and 2000. 
Model 1000 and 2000 users must change 
the CHR$(127) in line 260 of Program 
Listing 3 to CHR$(241). 

If you have a Model III tape system 
simply use Program Listing 1 and sub- 
stitute line 260 of Program Listing 2 for 
line 260 of Program Listing 1 . This lets 
you take advantage of the special alge- 
braic symbol, the plus/minus. In addi- 
tion, Cubic runs on minimum memory 
system as the Program Listings are only 
about IK in length. ■ 

Write to Mike O'Neal at 220 N. Col- 
lege Avenue, #18, College Place, WA 
99324. 
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17 'SYNTHETIC DIVISION 

180 A=A3:B=H*A4A2:C=H*B+A1 

190 'QUADRATIC 

200 PRINT" 2 ROOTS ARE "; 

210 D"B*B-4*A*C:IFD<0THEN240 

220 Xl-l-B+SQR(D))/(2*A) :X2-(-B-SQR(D) )/(2*A) 

230 PRINT: PRINT'Xl = ";X1:PRINT"X2 = " ;X2:GOTO270 

240 PRINT "THE COMPLEX CON JUGATES : " : D— D 

250 XR— B/(2*A) :XI=SQR(D)/ABS(2*A) 

260 PRINTXR"+"XI"I":PRINTXR"-"XI"I" 

270 S«999999:INPUT"PRESS <ENTER> TO END PROGRAM. CHECK #";S 

280 IFS-999999ENDELSEGOSUB310:PRINT"F ("S") - ">Y:GOTO270 

290 YH-SGN(A3*H*H*H+A2*H*H+A1*H+A0) 

300 YL-SGN(A3*L*L*L+A2*L*L+A1*L+A0) 

310 Y-A3*S*S*S+A2*S*S+A1*S+A0:YS-SGN(Y) :RETURN 



Program Listing 2. Cubic for the Model III. 



' CUBIC/III VERS 2/15/84 by Mike O'Neal 

10 DEFPNA(X) =A3*X*X*X+A2*X*X+A1*X+A0 

20 DEFPNB(X)«SGN(FNA(X)) :CC«32 

30 PRINT'THIS PROGRAM FINDS ROOTS OF CUBIC EQUATIONS" 

40 PRINT'OF THE STANDARD FORM: F(X) = A*X'3 + B*X'2 + C*X + D" 

50 INPUT"PLEASE INPUT THE COEFFICIENTS A,B,C,D " ; A3 ,A2 ,Al ,A0 

60 PRINT: IFA3O0 ,100 

70 IFA2O0,A=A2:B«A1:C=A0:PRINT"THE";:GOTO190 

80 IFAl-0,50 

90 PRINT"THE ONLY ROOT IS X « ";-A0/Al:END 

100 'CUBIC 

110 S-1:L-0:P=1 

120 S-l-S:L-l-L:IFFNB(S)OFNB(L) ,140 

130 S— S:L— L:IFFNB(S)-FNB(L) ,120 

140 H-(S+L)/2:IFFNB{S) OFNB(H) ,L-HELSES=H 

150 IFABS(L-S) <P,P=ABS(L-S) tGOTO140 

160 PRINT"THE FIRST REAL ROOT IS X0 - " ;H: PRINT "THE OTHER"; 

170 'SYNTHETIC DIVISION 

180 A-A3:B-H*A+A2:C-H*B+A1 

190 'QUADRATIC 

200 PRINT" 2 ROOTS ARE " 

210 D-B*B-4*A*C:IFD<0,240 

220 Xl-(-B+SQR(D))/(2*A) :X2-I 

230 PRINT'Xl « ";X1:PRINT"X2 

240 PRINT'THE COMPLEX CONJUGATES: ">:D=-D 

250 XR— B/(2*A) :XI-SQR(D)/ABS(2*A) 

260 PRINTXR;CHR$(127) ;STR$(XI) ;CHR$(105) 

270 S-999999:INPUT"Press <ENTER> to END program. CHECK #";S 

280 IFS-999999ENDELSEPRINT"P ("S") = ";FNA(S) :GOTO270 



!-B-SQR(D))/(2*A) 
">X2:GOTO270 



Program Listing 3. Cubic for the Models 4, 1000, 2000. 



' CUBIC/4 

10 DEF FN A(X)=A3*X*X*X+A2*X*X+A1*X+A0 

20 DEF FN B<X)=SGN( FN A(X)):CC=32 

30 PRINT "THIS PROGRAM FINDS ROOTS OF CUBIC EQUATIONS" 

40 PRINT "OF THE STANDARD FORM: F(X) = A*X"3 + B*X'2 + C*X + D' 

50 INPUT "PLEASE INPUT THE COEFFICIENTS A,B,C,D " ; A3 ,A2, A1,A0 

60 PRINT: IF A3<>0 THEN 100 

70 IF A2O0 THEN A«A2:B=A1:C«A0: PRINT "THE";:GOTO 190 

80 IF Al-0 THEN 50 

90 PRINT "THE ONLY ROOT IS X = ";-A0/Al:END 

100 "CUBIC 

110 S-1:L=0:P-1 

120 S-1-S:L-1-L:IF FN B(S)<> FN B(L) THEN 140 

130 S=-S:L=-L:IF FN B(S)» FN B(L) THEN 120 

140 H=(S+L)/2:IF FN B(S) <> FN B(H) THEN L=H ELSE S=H 

150 IF ABS(L-S)<P THEN P=ABS (L-S) :GOTO 140 

160 PRINT "THE FIRST REAL ROOT IS X0 = ";H: PRINT "THE OTHER"; 

170 'SYNTHETIC DIVISION 

180 A-A3:B-H*A+A2:C-H*B+Al 

190 'QUADRATIC 

200 PRINT " 2 ROOTS ARE " 

210 D-B*B-4*A*C:IF D<0 THEN 240 

220 X1»(-B+SQR(D))/(2*A) :X2=(-B-SQR(D) )/(2*A) 

230 PRINT "XI - ";X1:PRINT "X2 = ";X2:GOTO 270 

240 PRINT "THE COMPLEX CONJUGATES: ";:D=-D 

250 XR=-B/(2*A) :XI=SQR(D)/ABS(2*A) 

260 PRINT XR;CHR$(127) jSTR$(XI) ;CHR$(105) 

270 INPUT "CHECK #";S 

280 PRINT "F ("S") = "; FN A(S):GOTO 270 
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NEW! 
IN STOCK!! 




NO WAITING!!! 



$777 

5 MEG 
HARD DRIVE 



BEWARE!! 




$10 nandknq & shipping 



Would you buy from fflis 
hard drive specialist 9 



Comes complete with cable 

and your choice of 

software driver * (CP/M, LDOS, TRSDOS) 

10 Megabyte Hard Driv« ^5J5J W 

11QS 

15 Megabyte Hard Drive ■ IWW 

30 Megabyte Hard Drive I ™v5l 

SYSTEM FEATURES 

• For TRS-80 Model 3-4-4P 

• Size Rated After Format 

• Error Checking & Correcting 

•Model J requires l DOS 
Model 4 requires TRSDOS 62 or Montezuma Mcro CP/M 2 2 



Seriously folks, there are firms that offer benefits or products 
seemingly too good to be true. There's no reason to expose yourself 
to possible unhappiness. Aerocomp has proven record of thousands 
of satisfied TRS-80' customers. Look at the back issues of this 
magazine. You won't find many companies that have been around as 
long as Aerocomp. We fully support TRS-80" computers and most all 
operating systems including CP/M* 2.2. Aerocomp leads the way to 
low hard prices so you can afford to enjoy the benefits of increased 
storage and faster disk I/O. These units are precision engineered, 
tested and delivered complete and ready to use, right from stock. 
Guaranteed for one year parts and labor. You can count on us to be 
here if you need us As always, your satisfaction is assured with our 
1 4 day free trial offer. How can you wrong? Specify the software 
driver of your choice and start enjoying your computer's real 
capability. Do it today! 

See opposite page* n t m 
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Double Density Controller 



Add 80% more capacity to your disk 
system with the Double Density 
Controller (DDC) from Aerocomp. 



The Story 




Some products have what it takes to seem to last forever Our DDC is 
one of those products. What it does is allow you to operate your TRS-80 
Model 1 disk system in double density In this case double density means 
almost doubling the storage capacity of your diskettes. Single density, thats 
the way Radio Shack designed your Model I expansion interlace, organizes 
your disk into 10 sectors per track. Each sector contains 256 bytes of data 
for a total storage capacity of 2.560 bytes or 2.5K per track times the number 
of tracks your drive is capable of addessing. Double density, on the other 
hand, writes 18 sectors per track each containing 256 bytes for a total of 
4.608 bytes or 4.5K That 80% more data in the same space. Why didn't 
Radio Shack do that in the beginning, you ask 7 Well it costs money to do 
double density because it is more difficult to do than single density and the 
data is harder to capture reliably That means more cost and the Model I 
was meant to be a low-cost computer for the masses Therefore, no double 
density. 



The Facts 



Other companies introduced double density controllers for the Model I but 
they were not so good. We waited and waited but, even new models failed 
to correct problems with data separation that kept cropping up. So we went 
to work and came up with a new design to cure the old problem At last! 
A double density controller for the Model I with a higher probability of data 
recovery than with any other double density controller on the market then 
or since. Our analog design phase lock loop data separator has a wider 
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capture window than the digital types the others use This allows high 
resolution data centenng Our DDC analog circuit allows mfm itety vanable 
tuning. The attack and settling times are optimum for 5 .25" diskettes. The 
oft-stated fears of adjustment problems have been proved groundless by 
thousands of satisfied users the world over. The bottom line here is 
state-of-the-art performance and reliability. 

ORDER YOURS TODAY 

TRS-80 Model I disk system owners who are ready for reliable double density 
operation will get 80% more storage per diskette; single and double density 
data separation with far fewer disk I/O errors; single density compatibility, 
simple plug-in operation You will need a disk operating system that has the 
necessary double density software All the popular DOS s (except TRSDOS) 
have the drivers. We have put together two special packages in the event 
you don't already have one of the more popular DOS's. 

"DDC" by itself $99 

"DDC" and LDOS 1 59 

"DDC" and NEWDOS 80 v2.0 1 89 

Please add V rianamj & strong 



\3r 40 Track 
& 80 Track 
O* Single Head 
[J Dual Head 
t^Bare 
& Complete 
& Full Size 
Or Half Size 
O" 5-1/4" or 8" 



COMPLETE DRIVES mo $6 sah 

Fits TRS-80 Models 1 .3.4 and the H| 

Color Computer plus the others I^H 

that use standard drives. The drive ^LV 

of your choice rs mounted ^^ 

in a sturdy, all-steel cabinet. An external gold 
plated drive connector allows cabling without 
disassembly of the cabinet. Half -high drives come 
in a full-size cabinet that will hold and power our 
half-high drives. Single drives have a panel 
covering the unused space allowing a second drive 
to be added at any time. All are shipped fully 
assembled ready to use Specify silver or white 
enclosure. 

40tk Single Side full size (TM100-1) $ 169 

40tk Double Side fun size (TM100-2) 209 

80tk DS full size (TM101-4) 299 

1-40tk SS half-high FD-55A in dual case 179 

2-40tk SS half-high FD-55A's in dual case... 31 9 

1-40tk DS half -high FD-55B in dual case 219 

2-40tk DS half-high FD-55Bs in dual case .399 

1-80tk DS half -high FD-55F in dual case 249 

2-80tk DS half-high FD-55F's in dual case... 449 



■ 



These 8 Thinline drives work 
with the Model 2 and 12 plus 
others that use standard 
drive? The rugged all-steel 
cabinet has an extra heavy duty power supply 
rated for continuous operation. A removeable air 
fitter allows only clean air to circulate. Cabinets 
with single drives are supplied with a blank panel 
to cover the unused space A second drive can 
be added at any time Add $12 shipping and 
handling. 

1-8 SS Tandon TM848-1E & case $389 

2-8 SS Tandon TM848-1Es & case 649 

1-8' DS Tandon TM848-1E & case 499 

2-8 DS Tandon TM848-2E s & case 799 



BARE DRIVES **uw _ 

These drives are completely ■ ■ H 
bumed-in and tested for your I HS H 
ultimate satisfaction. Add that I H jH 
extra drive today! Please add $5 I HH IH 
for shipping and handling for each drive 
ordered. 

40tk SS full size Tandon TM100-1 $ 129 

40tk DS full size Tandon TM100-2 169 

40tk SS half high TEAC FD55-A 129 

40tk DS half high TEAC FD55-B 169 

80tk DS tuB size Tandon TM101-4 239 

80tk DS half high TEAC FD55-F 239 

8" SS half high Tandon TM848-1E 290 

8" DS half high Tandon TM848-2E 360 

* See List of Advertisers on Page 145 



DISK DRIVES 

Aerocomp leads the way to the BEST value in disk drives and related peripheral products 
on the market today. Sound engineering, high performance, quality construction, no-risk 
free trial, outstanding warranty service and a reputation for doing the right thing make 
your decision to buy Aerocomp the correct one. Please look over our offerings and 
make your selection. When you have made your choice call our toll-free number and 
place your order. If you need assistance in making your selection, please call our 
information number. It's listed in the box at the bottom of this ad along with the technical 
assistance number for those of you who want to get right to the nitty-gritty. Thanks, 
we all appreciate your business and will continue to do our very best to support 
you. 



TRS-80 Model III & 4 

DISK CONTROLLER 

and 

DRIVE KITS 



Convert your cassette Model III or 4 to 
disk operation with one of our complete 
kits. You receive our own advanced disk 
controller board with gold plated edge 
contacts capable of 4-drive operation; 
our own power supply; plated steel 
mounting towers complete with RFI 
shield plus all the cables and hardware 
necessary. Detailed instructions are 
included. All you need is a screwdriver 
and a pair of pliers. System kits come 
with 40 track single-side Tandon drives 
(TM 100-1) or just order the basic kit and 
pick the drives you want from the 
selection in the next column. 

CONTROLLER KIT $199 

(Complete ■ Everything you need leas drives) 

1 DRIVE SYSTEM 319 

2 DRIVE SYSTEM 449 

CONTROLLER ONLY no 

MOUNTING KIT ft 

POWER SUPPLY 95 

RS-232 BOARD 69 



MISCELLANEOUS GOODIES is uh 

Model 1 TRSDOS 2 3 disk & manual $25 

Model III TRSDOS 1.3 disk & manual 25 

LDOS (specify Model I or III) 69 

NEWDOS 80 v2 (specify Model I or III). .119 

10 disks in smoke lib box, Lifetime Guar 16 

5.25 " dnve power supply & enclosure 59 

8" drive power supply, end. & fan. 

5V-24V 150 

5.25" 2-dnve cable 24 

5.25 4-dnve cable 34 

5.25 Extender cable with gold contacts 13 



FREE TRIAL OFFER 

Use your Aerocomp hardware product lor up to 1 4 days 
If you are not satisfied for ANY REASON (except misuse, 
damage or improper handling), return it (insured) in the 
original snipping container for a ful purchase pnce refund, 
less shipping Sorry, thia offer does not apply to 
software. Defective software wW be replaced onfy. Any 
hardware/software specials wM be prorated and the 
software will be charged at the regular unbundled price, 
we have confidence in our products and we know you will 
be satisfied. 

WARRANTY 

We offer a one year warranty on parts and labor against 
defects in materials and workmanship. In the event service 
becomes necessary for any reason you will find our service 
department fast, friendly and cooperative. We want to keep 
you happy. Out of warranty repairs are also available. 



OUR FAMOUS 

MODEL I STARTER 

PACKAGE 

If you have a Model I and an Expansion 
Interface this is what you need to get 
started with disks. Included is one 40 
track single-side disk drive complete 
with matching silver case and power 
supply, a 2-drive cable, a TRSDOS 2.3 
disk operating system and TRSDOS 
manual plusall insurance and delivery 
charges to your door (lower 48 states). 

Yours for only «P*CO«7 

You can add our renown "DDC" double 
density controller to either the Radio 
Shack or the LNW E/l for 80% more 
storage capacity on your drive. Go 
ahead, you deserve increased density. 
See the opposite page for the latest 
details. 



$99 



100% BURN-IN and TEST 

AM our products are bumed-m and fuUy tested prior to 
Shipment. We want you to receive an item ready-to-go. 
AEROCOMP means reliability 1 

ORDER NOW! 

CaH our toft-free number service and place your order Have 
your American Express. Mastercharge or Visa number 
ready. We w* not charge your card until the day we ship 
your order. You may order by mail using your credit card. 
Check or money order Personal and company checks are 
welcome and cause no shipping delay as long as they are 
bank printed and the signature exactly agrees with the 
name printed on the check We win ship surface COO with 
no deposit but aft COO's require cash or a cashier s check 
on delivery Texas residents add 6% State Sales Tax No 
tax coftected on out of state sNpments Canadians add $20 
to your orders if over $500 for customs 
documentatHjn 



call toll-free 
800-527-3582 usa 
800-442-1310 texas 

For inquiries or information 

or to check on or change an order 

call 214-339-8324 

AE3GCGfi1P 

Redbird Airport, Bldg. 8 
P.O. Box 24829 ,& 

Dallas, TX 75224 
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PROJECT 80 / by Roger C. Alford 



Desirable Interruptions: 
A IAII/4 Interrupt Controller 



Pardon the interruption...." 
While interruptions are consid- 
ered impolite, sometimes you have to 
make them, especially in microcom- 
puter systems. Many computers, par- 
ticularly those involved with real-time 
or time-sharing applications, require 
microprocessor interrupts to make 
proper operation possible. 

An interrupt allows an external de- 
vice to have the processor stop what 
it's doing and take time to service the 
external device. If the processor isn't 
doing something more important (de- 
termined by a combination of hard- 
ware and software), the processor 
complies with the interrupt. If the pro- 
cessor is working on something more 
important (a higher-priority device) it 
ignores the interrupt request and con- 
tinues with what it was doing. 

Many systems (like the TRS-80 
Models 1, III and 4), use polling for in- 
put/output (I/O) operations to see 
when you've pressed the keyboard or 
when it's OK to send a character to the 
printer. Polling is simply a check to see 
if a device is ready or needs servicing. 
In a polling system, the processor con- 
tinually loops to check the status of 
various devices. This is fine as long as 
the processor has nothing else to do. 
But it can often be doing useful work 
while waiting on I/O devices. Inter- 
rupts allow the I/O devices to inter- 
rupt the processor when they need ser- 
vice, permitting it to do useful work in 
the meantime. 

This month's project is an interrupt 
controller compatible with the Models 
I, III and 4. The controller board uses 
an 8259A interrupt controller inte- 
grated circuit (IC), which does most 



The Key Box 

Models I, III, and 4 
16KRAM 
Assembly Language 
Editor/ Assembler 




Photo I. Interrupt controller for Models I, III, and 4. 



of the work on the board. 

A Look At Z80 Interrupts 

The Z80 has two interrupt input 
lines (INT/ and NMI/) and uses a 
combination of two signals to ac- 
knowledge an interrupt. The INT/ line 
is the general-purpose interrupt input, 
the one most commonly used. The 
NMI/ line, or nonmaskable interrupt 
line, is reserved for special emergency 
situations, such as a power failure. 

You can enable or disable (mask) 
the INT/ line under software control, 
using the Z80's Enable Interrupt (EI) 
and Disable Interrupt (DI) instruc- 
tions. This allows the software to de- 
termine when to accept interrupts and 
when not to. The NMI/ input, on the 
other hand, is nonmaskable, meaning 
that you can't disable it with software. 
Because of this, it's rarely used. 

The Z80 has three interrupt modes, 
mode 0, mode 1 and mode 2, which 
you can use with the INT/ interrupt 
input. These modes give the Z80 a 
considerable amount of interrupt flex- 
ibility, allowing effective interrupt use 
in a variety of system applications. I'll 



discuss how the Z80 responds to each 
of the interrupt modes separately, in- 
cluding the best uses for each one. 

Z80 Mode Interrupts— 
8080A-Compatible Mode 

Interrupt mode is the default 
mode on processor reset. The Z80 
responds to its interrupt input in the 
same manner as its predecessor, the 
8080A. The Z80 looks at the interrupt 
input at the end of each instruction. If 
it's active (low) and interrupts are 
enabled, the processor stops its execu- 
tion and begins servicing the interrupt 
request. The response will vary de- 
pending on the interrupt mode you're 
using. 

In the case of mode 0, the Z80 sends 
an interrupt-acknowledge signal to the 
interrupting device when it accepts an 
interrupt. It does this by simultane- 
ously bringing the Ml/ and IORQ/ 
signals low. The interrupt-acknowl- 
edge signal acts as a read strobe to the 
interrupting device, telling it to put the 
opcode (first byte) of an instruction on 
the data bus. This is a Call instruction 
pushing the processor's program 
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counter (PC) onto the stack and 
branching the execution to the begin- 
ning of the interrupt service routine. 

The 8080A (like the Z80) provides a 
set of 1-byte Call instructions ideal for 
this purpose. These eight instructions, 
called Restart instructions, make a call 
to a predetermined location in mem- 
ory (usually occupied by ROM). Be- 
cause of their bit makeup, you can 
easily generate them with hardware. 
The instructions to do so, along with 
the binary code, are shown in Fig. 1, 
along with the memory addresses to 
which they call. The underlined bits 
indicate the only bits that differ 
among the eight different Restart in- 
structions. 

While the Restart instructions are 
easy to generate and are the most com- 
mon in 8080A systems, you can put 
any 8080A instructions (or Z80 in- 
structions for the Z80) on the bus. For 
greater versatility in where the com- 
puter puts the Call Table service rou- 
tine in memory, interrupt controllers 
(like the 8259A used in this month's 
project) are often designed to generate 
actual 3-byte Call instructions. This 
way, you could specify an actual 16-bit 
address in it. For instructions like this, 
where the number of instruction bytes 
is greater than one, the CPU will send 
enough interrupt-acknowledge signals 
to read in all the bytes necessary. 

Mode is primarily used in systems 
when you want to maintain compati- 
bility with 8080A systems, or when 
you're using peripherals (such as the 
8259A in this month's project) for use 
with 8080A-type processors. The 
Z80's flow response to an interrupt in 
mode zero is shown in Fig. 2. 

Z80 Mode 1 Interrupts— Restart 3811 

This is the simplest and least flexible 
interrupt mode the Z80 offers. If an 
interrupt occurs while you're enabling 
interrupts, the Z80 merely executes a 
Restart 38H instruction, which is a 
Call to memory location 0038 hexa- 
decimal (hex). The Z80 produces no 
interrupt-acknowledge signal, and re- 
quires no external hardware. You use 
this mode in small systems, where the 
interrupt requirements are minimal 
and the external hardware required for 
the other Z80 interrupt modes is unne- 
cessary. This is the one most often 
used by TRS-80s. The Model I uses it 
with its 25ms interrupt and disk con- 
troller interrupts, and the Models III 



and 4 don't even provide the interrupt- 
acknowledge signal on their expansion 
connectors, necessary for the use of 
the other interrupt modes. 

Figure 3 illustrates the Z80's flow 
response to a mode 1 interrupt. 

Z80 Mode 2 Interrupts— Indirect Call 

Mode 2 is the most powerful of the 
Z80 interrupt modes. The Z80 gen- 
erates an interrupt-acknowledge signal 
to the interrupting device, and expects 
a 1-byte vector in response. This vec- 
tor is actually the low byte of a mem- 
ory address which, by convention, 
must be even. The high byte of the ad- 
dress is found in the Z80's Interrupt (I) 
register, which you must set up with 
software. The Z80 puts the 2 bytes to- 
gether to form a 16-bit address in 
memory, where it then gets the 16-bit 
address of the interrupt service rou- 
tine. The I register points to a vector 
table page in memory, and the input 
vector byte provides the offset into 
that table. Since you can program the 
I register, you can load the vector table 
virtually anywhere in memory. 

Most Z80 peripheral devices sup- 
port mode 2 interrupts. You can also 
support it with a little external hard- 
ware, in much the same way as mode 
interrupts. Mode 2 interrupts are used 
in most Z80 systems that use Z80 pe- 
ripherals, or that provide the hard- 
ware required for the additional flexi- 
bility. The Z80's flow response to 
mode 2 interrupts is shown in Fig. 4. 

The Z80 Nonmaskable Interrupt 

You can't disable the nonmaskable 
interrupt. This allows top-priority re- 
sponse from the Z80 in case of a sys- 
tem emergency. When the Z80 re- 
sponds to a nonmaskable interrupt, it 
executes a Restart 66H instruction, 
performing a call to memory location 
0066 hex. The Z80 also saves the en- 
able/disable status of the INT/ inter- 
rupt before it disables the interrupts 
for NMI/ servicing (described below). 
The Z80's flow response to a non- 
maskable interrupt is shown in Fig. 5. 

Interrupt Flip-Flops 

The Z80 has two internal flip-flops 
for interrupt enabling and disabling. 
These flip-flops, designated IFF1 and 
IFF2, work with each other to provide 
the interrupt enable/disable flexibili- 
ty, as well as temporary enable status 
storage during servicing of nonmask- 



able interrupts. On reset, the Z80 
clears both IFF1 and IFF2, preventing 
maskable interrupts (INT/) from be- 
ing accepted. When it executes an EI 
instruction, the Z80 sets both flip- 
flops, allowing it to accept maskable 
interrupts. The two flip-flops follow 
each other most of the time. 

When a nonmaskable interrupt oc- 
curs, the Z80 saves the current state of 
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Bit 
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RST00H 


110001 11 


0000H 
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11001111 


0008H 
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11010111 
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RST 18H 


11011111 


0018H 


RST20H 


11100111 


0020H 


RST 28 H 


11101111 


0028H 


RST30H 


11110111 


0030H 


RST38H 


11111111 


0038H 


Figure I. 


Restart Instructions. 



1. Interrupt occurs. 

2. Disable further interrupts. 

3. Assert acknowledge. 

4. Read byte op-code on data bus. 

5. More bytes to come? If yes, then 4. 

6. Execute instruction received from inter- 
rupting device. 

Figure 2. Mode interrupt response. 



1. Interrupt occurs. 

2. Disable further interrupts. 

3. Call memory location 0038H. 

Figure 3. Mode 1 interrupt response. 



1 . Interrupt occurs. 

2. Disable further interrupts. 

3. Assert acknowledge. 

4. Get vector on data bus. 

5. Combine vector with I-register value to 
form address of service routine. 

6. Get service routine address and call the 
service routine. 

Figure 4. Mode 2 interrupt response. 



1. Interrupt response. 

2. Maskable interrupt status is saved. 

3. Maskable interrupts are disabled. 

4. Call location 0066H. 

5. Restore maskable interrupt enable status 
when done. 

Figure 5. NMI response. 
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Figure 6. 8259.4 block diagram. 



IFF1 in IFF2, while it clears IFF1 to 
make sure no maskable interrupts oc- 
cur while processing the nonmaskable 
interrupt. When the Z80 executes the 
RETN (return from nonmaskable in- 
terrupt), it transfers the value in IFF2 
to IFF1, restoring its original, pre- 
interrupt value. 

Levels and Edges 

Different processors have different 
ways of determining the validity of an 
incoming interrupt request. The Z80, 
for instance, looks for a low level on 
its INT/ line. When the line is low, the 



Z80 assumes that the connected device 
is requesting an interrupt. Some pro- 
cessors, like the 8085A, look for a high 
level. When the line is high, the pro- 
cessor assumes that the connected de- 
vice is requesting an interrupt. Others 
look for an edge trigger. They expect 
to see a rising edge or falling edge of a 
signal for a valid interrupt request. 
Some even require a combination of 
an edge and a level. 

Each of these triggering modes has 
its advantages and disadvantages. The 
level-triggered mode is the most com- 
mon, and assumes that whenever a de- 
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Figure 7. 1CW1 and 1CW2 o/8259A. 



vice has its interrupt line at a certain 
level (either high or low, depending on 
the processor), it needs servicing. Dur- 
ing the service routine, the processor 
performs whatever operations are ne- 
cessary for the device to deactivate its 
interrupt request, before the processor 
reenables the interrupts. 

The edge-triggered mode assumes 
that a device will activate its interrupt 
line when it needs service, making the 
necessary edge trigger, but may not 
deactivate the line level until some 
later time. In this case, it is not desir- 
able for the CPU to keep seeing the 
line as an active interrupt and attempt- 
ing to service it. 

For example, say an interrupt input 
is positive edge-triggered, meaning 
that it is triggered by a low-to-high 
voltage transition. The transition noti- 
fies the CPU that a device is requesting 
an interrupt so the CPU can service 
the interrupt. At the end of the inter- 
rupt service routine (ISR), the CPU 
reenables interrupts, but the interrupt 
line is still high. A CPU with a level- 
triggered input would immediately see 
the high line as another interrupt re- 
quest and service the interrupt. The 
edge-triggered CPU, however, would 
not recognize another interrupt re- 
quest until the line returned low, then 
went high again. 

The third type of triggering, a com- 
bination of edge- and level-triggering, 
is often used for nonmaskable inter- 
rupt inputs, or in systems with noisy 
environments. The CPU only checks 
the interrupt lines between instruc- 
tions (actually at the end of each in- 
struction). If a low-to-high transition 
occurs on the line, the CPU sets an in- 
ternal flip-flop to record the edge. 
Then, when the time comes to check 
for an interrupt, the CPU looks for 
both an active flip-flop, indicating the 
edge has occurred, and an active 
(high) input. If both of these condi- 
tions are not true, no interrupt service 
processing will take place. 

The advantage of looking for both 
conditions is two-fold. First, if a glitch 
(voltage spike) occurs and sets the nip- 
flop, it will not cause a nonmaskable 
interrupt, since the line probably 
won't still be high when the CPU 
checks it. Second, if a nonmaskable 
interrupt does occur, the CPU won't 
recognize another nonmaskable inter- 
rupt until the line returns low, then 
goes high again. The benefits of level- 
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Figure 8. OCW1 and OCW3 o/8259A. 



triggering and edge-triggering are com- 
bined for a double-safe interrupt input. 

The 8259A Programmable 
Interrupt Controller 

The 8259A programmable interrupt 
controller (PIC), developed by Intel, is 
a versatile device that provides eight 
interrupt inputs and a full 3-byte call 
to the CPU for versatility in locating 
the interrupt jump table in memory. 
The basic block diagram of the 8259A 
is shown in Fig. 6. An 8-bit bus inter- 
face handles communication with the 
CPU and one interrupt output to the 
CPU. The 8259A takes up two loca- 
tions in I/O addressing space. 

The 8259A provides several features 
that make it useful for a variety of ap- 
plications. The eight interrupt inputs 
are prioritized, allowing higher-pri- 
ority devices to interrupt lower-pri- 
ority devices, but not the other way 
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around. You can program the inputs 
as level-triggered or edge-triggered, 
and you can selectively mask (enable 
or disable) them. You can cascade up 
to nine 8259A's together, providing up 
to 64 prioritized interrupt levels. 

The CPU can send two kinds of 
command words to the 8259A: Initial- 
ization command words (ICWs) and 
operation command words (OCWs). 



shown in Fig. 7. While two are shown, 
you'll use only the first, although you 
must still send both to the 8259A to meet 
initialization requirements. 

The default mode setting for the 
8259A is for 8080A mode, which is 
what you want. You can also program 
it to work with the 8086/8088 family 
of processors. Bit of ICW1 specifies 
whether or not ICW4 will or won't be 




Photo 2. General-purpose I/O board with interrupt controller. 



The CPU sends the ICWs only once to 
initialize the 8259A after power-up. It 
sends the OCWs at various times as re- 
quired to perform different opera- 
tions. OCWs can alter interrupt 
masks, change priority levels, ac- 
knowledge interrupts, and more. 

While you have four defined ICWs 
available, the interrupt controller 
board will use only two, described 
here. You'll use all three of the defined 
OCWs, since they provide the real 
flexibility in operation. 

The interrupt controller is primarily 
designed to generate a 3-byte call in- 
struction to the CPU when a device re- 
quests an interrupt, and the CPU re- 
sponds with an interrupt acknowledge. 
Since TRS-80s aren't well-designed for 
this type of interrupt response (partic- 
ularly the Models III and 4) you won't 
use that feature; instead, you'll use its 
polled mode operation capability. 

When you apply power to the 8259A, 
the state of the device, including its in- 
terrupt output line, is unknown, since 
no reset input is available. Before you 
use the device, you must initialize it with 
the ICWs. The two ICWs you'll use are 



sent. Since ICW4 specifies optional 
parameters you won't use, this bit is 
programmed with a zero. Bit 1 distin- 
guishes whether the chip is by itself or 
if other PICs are cascaded with it. This 
bit is programmed as a 1 in our 
system, since it's by itself. Bit 2 relates 
to the spacing of service routine call 
addresses in normal operation, and 
doesn't apply to our system. 

Bit 3 of ICW1 determines whether 
the inputs will look for level-triggered 
interrupts (1) or edge-triggered inter- 
rupts (0). I will use level-triggered in- 
terrupts in my examples, but use what- 
ever meets your needs. Bit 4 must be a 
1 to indicate that you're sending 
ICW1. Bits 5-7 of 1CW1 and all of 
ICW2 provide address bits for the call 
addresses generated during normal 
operation. These don't apply to your 
system either. 

Once you initialize the 8259A, you 
can selectively enable or disable the 
various interrupt inputs by writing a 
mask byte (OCW1) to the higher 8259A 
port (port 29 hex on your board). Any 
bit that is set masks (disables) the cor- 
responding interrupt input, and 



cleared bits enable the corresponding 
inputs. 

The formats for OCW2 and OCW3 
are shown in Fig. 8. I'll describe the 
functions of these operation com- 
mand words later, when I discuss the 
operation of the interrupt controller 
board. 

Building the Interrupt 
Controller Board 

The parts list for the interrupt con- 
troller board (as well as the general- 
purpose I/O board addition) is shown 
in Table 1 , and the schematic is shown 
in Fig. 9. Some of the parts are option- 
al, depending on what you actually 
want to build (described in the re- 
mainder of this article). The interrupt 
controller board is shown in Photo 1 . 
The photo does not include the recom- 
mended additional reset circuitry de- 
scribed below. 

Building the controller board is sim- 
ple and straightforward. You need 
only a few easily obtained ICs, along 
with a handful of passive components. 
The addressing for the 8259A is jumper 
selectable, near the 74LS138. The 
jumper settings I used are indicated by 
dotted lines on the schematic (the pro- 
grams described later will assume this 
addressing). The possible addressing 
for the device is as follows: 



E2 


E3 


Addressing Range 


A6/ 


A5/ 


48-4B hex 


A6/ 


A5 


68-6B hex 


A6 


A5/ 


08-0B hex 


A6 


A5 


28-2B hex (my choice) 



Although the hardware reserves 
four port locations for each jumper 
setting, the 8259A requires only two. 
It is double addressed within the port 
addressing range. That is, the device 
will appear in the lower two or upper 
two locations of the chosen addressing 
range. The convention for such a situ- 
ation is to use the lower addresses of 
the addressing range. I will use ad- 
dresses 28 hex and 29 hex in the pro- 
grams described later. 

Because the 8259A doesn't have 
internal reset circuitry, the state of its 
interrupt output line (pin 17) is un- 
known at power-up. If this is connect- 
ed (via the 7416 gate) to the TRS-80 in- 
terrupt input line at system power-up, 
a problem will exist if the interrupt is 
active. This may not be a problem 
with the Models III and 4 since they 
have an internal register to enable ex- 
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ternal interrupts. I presume (though I 
am not certain) the initialization soft- 
ware in the TRS-80 disables external 
interrupts, making it necessary for ap- 
plications software to enable external 
interrupts before the CPU accepts in- 
terrupts. If this is true, the optional 
reset circuitry described below is un- 
necessary. In any case, the optional 
circuitry can't hurt, and 1 recommend 
it at least for all Model I users. 

The reason the jumper is shown on 
the schematic (on the interrupt line go- 
ing to the TRS-80) is in case you don't 
want to add the optional reset circuit- 
ry, or for some reason don't want the 
interrupt on the TRS-80' s interrupt 
line. You may not need the jumper in 
your application. You'll also need a 
+ 5V @ 150mA (milliamps). 

The interrupt inputs to the 8259A 
have inverters on them. The inputs to 
these inverters can then be connected 
to a terminal strip to provide you with 
eight active low interrupt inputs. 

Building the General-Purpose 
I/O Board Addition 

In December's Project 80, I de- 
scribed the construction of a general- 
purpose I/O board. An interrupt con- 
troller would be a valuable addition, 
so I've provided the schematic for it 
(see Fig. 10). The parts list is in Table 
1, as it is for the stand-alone interrupt 
controller board described above. The 
general-purpose I/O board with the 
interrupt circuitry is shown in Photo 2. 

The construction of this addition is 
straightforward. You address (chip se- 
lect) the 8259A from an unused pin on 
the 74LS138 (pin 13). This gives you 
the same addressing range as for the 
stand-alone controller board de- 
scribed above, 28-2B hex. The gen- 
eral-purpose I/O board already has 
two major peripheral devices, and 
they're designed to provide interrupts 
to the CPU during various modes of 
operation. The five possible interrupt 
pins (two from the 8255A and three 
from the 8253/4) are connected to the 
first five interrupt inputs on the 
8259A. This allows selective interrupt 
inputs under software control. 

You could use this, for example, to 
generate an interrupt to the CPU at 
predetermined points in time, and up- 
date something during the interrupt 
service routine. I'll illustrate this in the 
programs described later. This also al- 
lows the 8255A to generate interrupts 



to the Z80 after certain handshaking 
operations. (I used the same concept 
in the printer buffer project described 
in the September/October 1984 Proj- 
ect 80, p. 102 and p. 146.) 

I used five inputs to the 8259A, with 
three unused. I put inverters at these 
inputs, to make available three gen- 
eral-purpose active low interrupts. 

The Optional Reset Circuitry 

The schematic for the optional reset 
circuitry is shown in Fig. 1 1 . The parts 
are listed in Table 1, along with the 
other project parts. The reset circuitry 
provides a function available on many 
peripheral devices, and would prob- 
ably have been put on the 8259A if an 
extra pin were available. 

The reset circuitry is very simple, 
and requires the addition of only a 
74LS74 dual D-type flip-flop and a 
74LS32 quad OR-gate (Models III and 
4 users may use spare 74LS32 gates 
from the EXTIOSEL/ circuitry), and 
a couple of resistors. The interrupt 
output that was to go to the TRS-80 
INT/ line (pin 12 of the 7416) is routed 
instead to pin 9 of the 74LS32. The 
TRS-80 RESET/ output line then goes 
to pin 1 of the 74LS74, the reset line on 
the first flip-flop. For this to work, 
you must turn on the interrupt con- 
troller before or simultaneous with the 
TRS-80, so that it can see the TRS- 
80' s power-up RESET/ signal. 

Pins 13 and 12 of the 74I.S32 con- 
nect to the chip select (CS/) and write 
(WR/) lines on the 8259A, respective- 
ly. This creates an active (low) output 
signal when both input signals are ac- 
tive (low). This creates the necessary 
clock input to the 74LS74 when the 
8259A is written to. 

Look at how this circuit works. 
When you reset the TRS-80, the Q/ (Q 
not) output of the 74LS74 (pin 6) goes 
high. This makes the output (pin 8) of 
the connected OR-gate high, regard- 
less of the other gate input. The sec- 
ond 74LS74 flip-flop is then used as an 
inverter, to create a low level on its Q 
(pin 9) output. This then goes to the 
7416 gate to get re-inverted to a high 
level, an inactive interrupt level. 

When the computer first writes to 
the 8259A, however, the clock input 
(pin 3) to the first flip-flop makes the 
D-input value (high) appear on the Q 
output, and the inversion of that to 
appear on the Q/ output. The low lev- 
el on Q/ enables the connected 74LS32, 
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CONNECT PIN II OF 

74LSO0 HERE 

INSTEAO OF TO 

COMPUTER 




EXTIOSEL (43) Jl 



•MODELS HI /4 ONLY 
••VALUES IN PARENTHESES ARE 

FOR MOOELS TH /4 
•••ALL RESISTORS ARE 1/4 WATT. 
I OX 



8233A 
CONNECTIONS 



Figure 10. Interrupt controller addition to the I/O board. 
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POWER /GND CONNECTIONS 

IC GND *SV 

T4LS74 7 14 

74LS32 7 14 



T RS-BO 
REsTT (37) 2 

PIN 12 OF 

7416 HERE 

INSTEAO OF St 
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Figure 11. Optional reset circuitry for interrupt controller. 



I 


- 


- 


- 


- 


WL 


Wl 


WO 








^_ j 













SPECIFY WHICH ACTIVE 
INTERRUPT HAS HIGHEST 
PRIORITY. IF ANY ONE 
ACTIVE 



I -B259A IS INTERRUPTING 
0-82S9A IS NOT 
INTERRUPTING 



Figure 12. Interrupt status byte from 8259 A. 



which transfers the interrupt level on 
its pin 9 input to its pin 8 output, and, 
after two further inversions, is finally 
placed on the TRS-80's interrupt line. 
The interrupt output from the 8259A 
to the TRS-80's interrupt line will, 
then, always be enabled until it re- 
ceives another reset signal. The reason 
for the double inversion (using the sec- 
ond flip-flop and the 7416) is because 
of the need to use the open collector 
7416 gate, described below. 

Operating the Interrupt Controller 

This section concerns both the stand- 
alone controller board, as well as the 
general-purpose I/O board addition, 
since both operate identically. One of 
the essential requirements of the inter- 
face to the Model I bus is to use an 
open collector driver. Open collector 
drivers, like the 7416 inverting drivers, 
don't have the collectors on their out- 
put transistors pulled up, as do stan- 
dard transistor-to-transistor logic ICs. 
This lets you tie any open-collector 
outputs together with a common pull- 
up resistor. The net effect is that, 
when all the outputs are high, the line 
is high. When any one of them goes 
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Outputs: 

"H1929 



DEFM 
DEFB 



DllnDATo 

NOCU POr instead of the meaningless 

The Model 4! AB25 LD 

The ('/fUf 

Disassembler 

That €ven Tracks Douin 



LD 
LD 
LD 
LD 

1)1 ( 



READY - 
ODH " 

'equivalent"- 

D.D 

B.L 

B.C 

B.H 

E.H 

C ". etc 



DATMH 



AUTOMflTICflLLV identifies such data areas. 
Outputs fully-labeled Radio Shack* or 
f\ APPRflflT** 6DTASM* source code to display. 

|» J printer, disk (and cassette -- Models l/lll only) 

\y • Can relocate itself to any free RAM area. 
Loads programs from disk (or cassette -- 
Models l/lll only) and displays entry point. 
•For TRS-80 Model I (Level II). Model III. or Model 4 
(in Model III mode or under TRSDOS 6.0, in Model 4 mode) 

*13S4-42 ;Moclel 4 diskette, TRSDOS* 6.0) $49 95 

* 1354-22 (Model 111/4 diskette. TRSDOS* 13) $39.95 

*1354-12 : Model l/lll cassette) $36.95 

^ t - ■• US hxxHOrtv AcW MOO W*p»ng [US 6 Conodo) 

15 00 ( overseas a* put mm One 'UVOtca p«as« 
ode 6% sot«s to*. 

To order phone (513J 435-4480 ( M-f. v a m -5 p m €ST). of send chetK 
money ortiw or VtSfVMoste<ord m/ormoOon ;nome. odOfess. co/d 
lumber expirooon dote, ond uou' telephone number to 

PRO, AM SOFTUJRR€ 

880 Cordlgon Rood 
Ceneervrfle OH 45459 .-260 




Before Ms happens, 
callSAFEWARE 






800/848-3469 

(hi Ohio, i till 

M4 -'<>-' -05S9) 

Protects your computer 
against theft, fire, power 
surges and other accidental 
losses Insures your entire 
system for as little as $35 a 
year— depending on ihe value of 
your hardware, software, and 
media lull replacement after a 
low (50 deductible. 

We iv S.VHWAKK: M the- hrst name 
m computer Insurance. Tens of 
thousands ol satisfied customers. Call 

toll-free for rates OT immediate 

coverage 

S \l I W \Kh. The Insurance Agency Inc 
P0. Box 02211 
2929 N. High Street 
Cohimbus.0hio 13202 





T80-FS1 



Simulator 



Available for Model I or Model III. $25.00 
on cassette or $33.50 on disk (with 
enhancements) All versions require 16K. 




See your dealer! 



If you order direct, please specify whether you have Model I or 
Model III (the media are different) and whether you want disk or 
cassette. Include $1.50 and indicate UPS or first class mail. Illinois 
residents add 5% sales tax. Visa and Mastercard accepted. 
If you don't yet own a disk, don't fret. You can upgrade anytime. 
Cassette users may send back their cassette (but not the manual) 
along with $10 (first ciaaa shipping included) and receive the disk 
version. 



MfeLOGIC 

Communications Corp. 
713 Edgebrook Drive 
Champaign, I L 61820 
(217)359-8482 m 
Telex: 206995 
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Program Listing. Demonstration for Model III/4 to illustrate the use of the 8259A 
interrupt controller with the December Project 80 general-purpose I/O board. 



• •23 

• •21 

• •28 

• •29 

BB27 

• •24 

• •EC 

B0EB 
00E0 

700B 



7000 977B 
7B«2 B870 
7114 B870 
70(6 B870 
7MB B870 
700A B870 
700C BB70 
7BBE B878 

0001 
0BB1 
BBB2 



7015 3E10 
7B17 D3EC 
7B19 3E1E 



7B1B D328 
7B1D AF 
7»1E D329 

7«2« 3EFE 
7(22 D329 
7024 3E99 

7(26 D323 
7828 3EB3 

7B2A D321 
702C 32107B 
702F 3E30 

7(31 D327 
7B33 3E24 
7(35 D324 
7B37 3EF4 
7039 D324 



7B3B 
703C 
703F 
7042 
7044 
7046 
7049 
704C 
704E 
7051 
7054 
7056 



AF 

321170 
3A1240 
FEC9 

2806 

2A1340 

221270 

1806 

21C47B 

221270 

3EC3 

321248 



7059 216670 
705C 221340 
705F 3E08 
7061 D3E0 

7063 FB 

7064 18FE 



0B100 

00110 
00120 
80130 
00148 
00150 
0016B 
B0170 
00188 
00198 

• 02M 

e»2ii 

08220 
08230 
88248 
00250 
00260 
B027B 
00280 
B0290 
00300 
0031B 
00320 
00330 
00340 

• 0350 
08360 
00370 
00388 
B8398 
00400 
00410 
00420 

• 0430 
00440 
00450 
00460 
00470 
08480 
00498 
0B500 
0B51B 
BB52B 
00530 
0B540 
00550 
BB56B 
BB57B 
80580 
B0590 
00688 
00610 
00620 
88630 
00640 
08658 
00668 
00670 
006 80 

006 90 
00700 
00710 

• ■720 
00730 

• 0740 
00750 
00760 
00770 

007 80 
007 90 
08800 
08810 
00820 
00830 
00840 
00850 
00860 
00870 
880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 

• Kit 
01020 
01030 

• 1040 
01*50 
01060 



; This is a demonstration program foe the Model III/4 to* 
; illustrate the use of the 8259A interrupt controller * 
; with the Project 80 G.P. I/O board. It sets up the • 
; various board devices to increment the LED display * 
/ every second. See column text for a more-indepth * 
; description. * 

/ Written by Roger C. Alford « 

i •*•*********••••**************••«****«*****«•« •«*»*****« 

; 



PPICMD 

PPIB 

PICP0 

PICP1 

PITCMD 

PITT0 

TRSEXE 

TRSINE 

TRSRDI 



EQU 
EQU 
EQU 
EOU 
EQU 
EOU 
EQU 
EQU 
EQU 

ORG 



23H 

21H 

28H 

29H 

27 H 

24H 

0ECH 

0E0H 

0E0H 

7000H 



;8255A COMMAND PORT 

;8255A PORT B 

; LOWER PORT OF 8259A 

; UPPER PORT OP 8259A 

;8253 COMMAND PORT 

; TIMER PORT ON 8253 

;TRS-80 EXTERNAL I/O ACCESS PORT 

;TRS-80 INT. ENABLE PORT 

;TRS-80 READ INT. STATUS PORT 

;SAFE ADDR FOR ALL HEM SIZES 



; VARIABLES USED: 
INTTBL DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 



TIMERS 
BADINT 
BADINT 
BADINT 
BADINT 
BADINT 
BADINT 
BADINT 



;TIMER 
; INVALID 
/INVALID 
; INVALID 
J INVALID 
; INVALID 
.•INVALID 
; INVALID 



INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 
INTERRUPT 



PPIBYT DEFS 1 

TIMCNT DEFS 1 

VECTOR DEFS 2 



; STORAGE FOR 8255 PORT B BYTE 
; STORAGE FOR INTERRUPT COUNTER 
I STORAGE FOR TRS-80 ISR ADDRESS 



INTRPT DI 



OUT 

LD 



OUT 
XOR 
OUT 

LD 

OUT 

LD 

OUT 
LD 

OUT 
LD 

LD 

OUT 
LD 
OUT 
LD 

OUT 

XOR 
LD 

LD 
C? 
JR 
LD 
LD 
JR 
LD 
LD 
LD 
LD 

LD 

LD 

LD 

OUT 

EI 

JR 



A.10H 

(TRSEXE) ,A 
A.1EH 



(PICP0) ,A 
A 
(PICP1) ,A 

A.0FEH 
(PICP1) ,A 
A.99H 

(PPICMD) ,A 
A.B3H 

(PPIB) ,A 
(PPIBYT) ,A 
A.30H 

(PITCMD) ,A 
A.24B 
(PITT*) ,A 
A.0P4H 
(PITTB) ,A 



(TIMCNT) .A 
A.I4012B) 
0C9H 
Z.NOISR 
HL,(4013H) 
(VECTOR) ,HL 
INITDN 
riL.NOPROC 
(VECTOR) .HL 
A.BC3H 
(4012H) ,A 

HL,SERVIC 
(4013H),HL 
A.08H 
(TRSINE) ,A 

LOOP 



/DISABLE Z80 INTERRUPTS 

; FOR INITIALIZATION. 

/WRITE BYTE TO ENABLE 

/ EXTERNAL I/O ACCESS 

/GET 8259A ICWl — SINGLE 

/ CONTROLLER SYSTEM, 

/ LEVEL-TRIGGERED. 

/SEND TO 825 9A 

/ZERO THE ACCUMULATOR 

/WRITE ICW2 — NOT REALLY 

/ USED BERE. 

/GET INT. MASK BYTE 

/ENABLE TIMER INT. 

/SET B255A PORT B FOR 

/ OUTPUT MODE •. 

/SEND TO 8255A COMAND PRT 

(SET LED TO '•' AND 

/ TIMER • FREQ.-250 KHZ. 

/SEND TO 8255A PORT B 

/SAVE VALUE ALSO IN MEM. 

/GET 8253 COMMAND BYTE — 

) SET TIMER TO MODE 

/SEND TO 8253 COMAND PRT 

/GET LOW COUNT BYTE 

/SEND TO TIMER 

/GET BIGB COUNT BYTE 

/SEND TO TIMER 

/CLEAR THE ACCUMULATOR 
/CLEAR THE INT. COUNTER 
/SEE IF ISR ALREADY THERE 
/LOOK FOR A RETURN 
/IF YES, NO ISR IN SYS. 
/ELSE, GET ISR ADDRESS 
/SAVE IN VECTOR LOCATION 
/FINISH INIT. 
/GET ADDR FOR NO PROCESS 
/PUT IT INTO VECTOR 
/GET JUMP OPCODE BYTE 
(WRITE TO TRS-80 VECTOR 
/ TO INSURE IT'S THERE 
;GET ADDRESS OP OUR ISR 
(SAVE IN TRS-80 VECTOR 
/WRITE BYTE TO ENABLE 
/ EXTERNAL I/O I NTS. 
/ENABLE INTERRUPTS NOW 
(LOOP FOREVER — JUST 
( WAIT FOR THINGS TO 
/ HAPPEN. 



This is the interrupt service routine (ISR) 
processing code. If the interrupt belongs to the 
8259A, it will be processed here. Otherwise, it will 
be forwarded to the TRS-80. 



SERVIC PUSH 



(SAVE USED REGISTERS ON 



Listing continued on p. 162 



low, the line goes low. This is called a 
wired-OR configuration. 

Open collector drivers allow many 
devices to share the common interrupt 
line to the CPU. The CPU must, how- 
ever, have some way to determine 
what is requesting any given interrupt. 
While Model Ps require the use of 
open collector drivers, Models III and 
4 users could get by with using a 
74LS04 instead of the 7416 chip de- 
scribed above, since open-collector 
drivers aren't required on the external 
I/O bus. It is, however, recommended 
that you use the 7416 because it's a 
better driver and it lets you parallel 
other devices that use the interrupt line 
on the bus in the future. The pull-up 
for the 7416 is internal to the Models 
III and 4, as well as to the Model I. 

As mentioned during the discussion 
of the 8259A, the operation command 
words let you set up most of the vari- 
ous options the 8259A allows. I've de- 
veloped a program for the Models 111 
and 4 that illustrates the use of the 
8259A (see the Program Listing). The 
program uses the functions of the gen- 
eral-purpose I/O board, but should 
give you an understanding of the 
operation of the interrupt controller 
even if you only build the stand-alone 
interrupt controller board. 

You first set up the 8259A by send- 
ing the two ICWs, as well as the inter- 
rupt mask (the port addressing is im- 
portant to note). The interrupt mask 
sent to the 8259A is OFEH, only en- 
abling interrupt input 0, which is the 
output of Timer on the 8253. The 
8255A is then set up to permit control 
of the programmable divided clock to 
the 8253, as well as the LED display. 
The display is initialized with a 0. The 
original 8255A value is also stored in a 
memory location (PPIBYT) for later 
reference (during the ISR). Another 
memory location (TIMCNT) is also 
cleared, to be used as a count register. 

Timer of the 8253 is now set up to 
operate in mode (interrupt on termi- 
nal count), which causes the output of 
the timer to initially go low, but then 
go high when the count reaches zero. 
The frequency input to Tuner 0, as 
established by the 8255A, is 250 KHz, 
the slowest possible frequency. As- 
suming we would like to update the 
LED display once each second, the in- 
terrupt to the CPU must occur at a 
frequency that will easily multiply to 

Continued on page 162 
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SUNDAY DRIVE 
THE REVENGE 

Two new adventures by 

Unicorn *?utttuarc 

Sunday Drive**: The bomb has been dropped! Now. you must 
battle your way through the insanity left Dehmd 
to find a new life. (TRS-8U Model I, III (IV) 48K 
Disk'). 

The Revenge 1 *: Battle man and beast to gain riches and 
rewards. Only the stout of heart and the lucky 
of life will survive. The first five warriors strong 
enough to complete the battle will win the 
game treasure (a free copy of in> Revengt 
!/"). (TRS-80 Model I. Ill (IV) 32K Disk'). 

SUNDA > DRIVE and THE REVENGE 

only $34.95 ea.. includes shipping & handling +. 

For the cassette users: 



GERALD 1 



ISLE OF 
WONDER™! 



The dreaded snake has invaded your home- 
town and you must save the neighborhood. 
Mod I. Ill 16K. 



As a novice thief, you must earn your way in- 
to the illustrious Thieves Guild. Mod I. Ill 16K. 

GBR M.n and ISLE OF WONDER 

only S19.95 ea.. includes shipping & handling. + 

"The Software that's not a myth' 

llnicurn *?nftuiarc 

P.O. Box 954 ^169 

Lancaster. Ohio 43130 
(614)654-9489 
1984 Unicorn Software 
*TRS 80 is a trademark ol the Tandy Corp. 
V Ohio residents must add 5.5% sales tax 



(LISP) 




Artificial Intelligence Language 

UO-LISP Programming Environment 

The Powerful Implementation of LISP 

for MICRO COMPU TtKS 

I \i .-Hi-ill for I ..iiiiin.j the Preferred Language 
ol the -\mi!ii ui! Intelligence Community 

WERFUL subset of the Q -. 

based UO-LISP suppoi is, the usual 

LISP Interpreter Functions, Data 

Types LISP Structure Editor, 

Optimizing LISP Source Code 

•- ■ • ibly & 

LISP Co 

. jl . . i !.. Numerous 
Utility Packages, (_ . c '.50 

Pas' 
Language KLisr and much more. 

TURN YOUR 1 RS 80 INTO A REAL 

L1SF MACHINE hOR ONLY 

$49.95 

Above lunitguration supported on TKS-80 Model I & 111 running with 
rRSOOSoranyof theTRSDOS ., r catalog list), 

48K ancl duttl drives and on Model 4 & 4P with Moacl Hi T KSDOS. 

I O ORDLK: Send reqiH Si foi UO-LISP Model I, Model ill. or 

Model 4/ III with ». heck, in.' lit card 10. withexp. 

date, add parcel shippiny tee of Si 0U inside U b and CN 

outside U.S. 

NEW CP/W configuration .mailable on TRS 80 Models II . 41 

and modihed Model III with Holmes VID 80 • cJP M option V 

for your FREE CATALOG with details and ordei !■ ForCP/M 

support 

Northwest Computer Algorithms 

HO Box 90V% Lonfl Beach. CA yuoiw U\M 4Zo Ihv.-j 



UNINTERRUPTIBLE POWER SYSTEMS 
BY SUN RESEARCH 



For complete protection from Blackout, Brownout, 
Surge and Spike specify a MAYDAY Uninterruptible 
Power System by SUN RESEARCH. 

Eliminate costly downtime and lost data caused by 
those momentary power losses. Protect your software 
and hardware from damage caused by sudden drops 
in line voltage. Isolate your computer system com- 
pletely from the AC wall circuit with a MAYDAY 
continuous (On-Line) Uninterruptible Power System. 
Give all your components clean 60Hz sine wave 
power for efficient operation at a price you can afford 

MAYDAY " UNINTERRUPTIBLE POWER SYSTEMS 
BY SUN RESEARCH 

Available in 150. 300, 600, 1000 and 1500 VA Capacities 



Call 1-603-859-7110 



v i 
> .. V 



MAYDAY ' Division 
SUN RESEARCH, INC. 
Old Bay Road 
Box 210 

New Durham. N.H. 03855 
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BBS EXPRESS / by J. Stewart Schneider and Charles E. Bowen 



Getting the 
Message Across 



One of the most important func- 
tions of a BBS is its ability to 
search and find information. Success- 
ful BBSes can locate information ac- 
curately and efficiently. This month's 
BBS Express concentrates on finding 
messages both in memory and on disk. 

While it's faster to locate informa- 
tion in memory than on disk, memory 
space is more limited, which in turn 
limits the amount of information you 
can keep in memory. A message header, 
for example, consists of the message 
number, subject, date, time, section 
number, name of sender, and destina- 
tion. Ideally, all this information 
should be in memory so you can locate 
a message quickly. This information 
requires a total of 92 bytes for each 
header, or 9.2K of memory if there are 
100 messages on board. Unfortunate- 
ly, however, that's a lot of memory. 

To complicate matters further, this 
header information is in string form, 
which can easily trigger string garbage 
collection. The message number, how- 
ever, isn't in string form. An accept- 
able solution, then, is to create a fast, 
in-memory search for the message 
number, leaving all other searches as 
disk operations. Because the message 
numbers are stored economically, 
memory isn't heavily taxed. 

Storing the Message Number 

Your computer's memory stores in- 
tegers in Z80 least significant byte/ 
most significant byte (LSB/MSB) 
format. Each integer requires 2 bytes: 
The first byte contains the least signifi- 
cant byte, while the second byte con- 
tains the most significant byte. In 
message number 256, for example, the 
least significant byte is 0, and the most 
significant byte is 1. The VARPTR 
command returns the address where 
the BBS stores the least significant 
byte; it stores the most significant byte 
in the next position. 

Using this information, you build 
an in-memory index of the message 




numbers that you access with a short 
machine-language code (see Program 
Listing 1). The index is simply a string 
that contains the message numbers in 
sequential order, making it easy to 
search for any given message number. 
The VARPTR (string variable) returns 
the memory address of a pointer that 
contains both the length of the string 
and the memory address of the string's 
first character. Because this informa- 
tion is all part of the same string, it's 
easily written to disk. 

Now you need to convert the mes- 
sage numbers to and from the Z80 
LSB/MSB format. Disk Basic does 
this: It contains MKI$, which returns 
a 2-byte string in LSB/MSB format, 
and CVI, which takes that string and 
returns a number. In the case of mes- 
sage number 256, MKI$(256) = CHR$(0) 
+ CHR$(1); CVI(CHR$ (0) + CHR$ 
(1)) = 256. Each time a user leaves a 
message, the BBS writes MKI$ 
(message number) to the in-memory 
string. The BBS stores the header for 
the Nth message in record N, and finds 
it in the index string at position 2*N - 1 . 
If P is the position in the string, and RN 



is the record number of the header for 
the message, then 

RN = (P+l)/2 
P»(2*KN)-J 

Program Listing 1, in Assembly 
language, searches the index for the 
message number. With this message 
number, you have access to the head- 
er, which gives you the secret file name 
of the text of the message. Label 
FSRCH calls the PARAM routine 
which places the length of the string 
passed from Basic in the B register, 
and the address of the string's first 
character in the HL register pair. Basic 
POKEs the message number that 
you're looking for in SEARCH +1. 



The Key Box 
Model ill 
48KRAM 
Disk Basic 
Assembly Language 
Two Disk Drives 
Editor/Assembler 
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COMPLETE HARD DRIVE $795. 



TRS-80 Model 1/3/4 and 4P Primary Secondary 

5 Megabyte - 795.00 595.00 

10 Megabyte - 1095.00 895.00 

1 5 Megabyte - 1 295.00 1 095.00 

30 Megabyte - 1 895.00 1 695.00 

TRS - 80 Hard Disk Subsystem Features 

• All sizes rated after formatting 

• TRS-80 Models 1,34 and 4P full supported 

• Your choice of DOSPLUS. LDOS or TRSDOS 6.x Software Drivers included 

• Newdos 80 Version 2.5 Systems available 

• Up to two secondary drives may be added 

• Error checking and correcting controller 

• Buffered seek drives for improved access times 

• Built-in power up diagnostics 

• Drives use plated media for long disk life 

• Heavy duty power supply 

• Fan cooled 

• Gold connectors used throughout for high reliability 

• 30 day money back guarantee 
• 



AS SEEN AT THE RADIO SHACK 
COMPUTER SHOWCASES 
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m sold mouvsnds ot soosy»tems to salislwd 1 US 4C 1 TRS-80 Models I 3 4and4Prnmp.iWsi'i 

.. .sH use Buttered serologic and pWMnvi - average acccu times',.., 

■ iot found on coaled mad I *ei supply 

».tn a one yea. paris arid labor warranty and we 'esosuiey-.i. - .neyback no questions.. • ,i wtien n comes 
Alter .ill vw are the Hartl Drive S[- 






HDS MULTIPLEXER 



$ 1295. 




ALLOWS USEAGE OF UP TO 4 MODEL III OR IV SYSTEMS USING DOSPLUS 
OR LDOS ON A HDS HARD DRIVE. INCLUDES MASTER CONTROL UNIT, 
HOST ADAPTERS FOR 2 COMPUTERS, AND 40 FEET OF CABLE EACH 
ADDITIONAL HOST ADAPTER ADD $150 EACH ADDITIONAL FOOT OF 
CABLE ADD S1 UP TO 100 FEET PER COMPUTER 



.# 



Tandy 1000. Tandy 1200. IBM. Zenith. 

and Compaq Fixed Disk Drives 

10 Megabyte - Internal — S 895. 
10 Megabyte -External -S1195. 
15 Megabyte - External - $1695. 
30 Megabyte - External — $2195. 
10 Megabyte - Secondary — $ 895. 
15 Megabyte - Secondary — $1395. 
30 Megabyte - Secondary — $1895. 




MODEL 3/4 BOOT ROM 539.95 

-ALLOWS YOU TO BOOT DIRECTLY FROM YOUR HARD DRIVE 
FOR DOSPLUS 



Hard Drive Software 

Oosplus 3 41 iModel I only) $99 95 

Dosplus 3 be (Model l drivers tor 3 Sj V "• V 

Oosplus 3 St iModel 3.4 drivers lor 3 51 $J9 96 

Dosplus IVt (Model 4 drivers lor IVi . $S9 95 

Dosplus 4 0* (Model 3 4 only) $99 95 

LDOS |ttn) 5 I « Drivers iModel I 3 4| $59 95 

TRSDOS 6 Itmj Drivers iModel 4 only) $59 95 

Newdos 80 Version 2 5 I Model U4 $199 00 



HARD DRIVE SPECIALIST 



Ordering Information 

■ ■ . . " i'i»'er O' M*.i you' payment directly to . 

• . - ... ■ • 

I •■ - ■ , I 

.... ... i 



• 455 1-713-480-6000 Order Line 1-800-231-6671 
16206D Hickory Knoll. Houston. Texas 77059 



See Lisl ol Advertisers on Page 145 
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BBS EXPRESS 



The BBS then loads this value into the 
DE pair, transfers the address of the 
first character in the string to the IX 
register with the PUSH HL, POP IX 
instructions, and loads C with 255 to 
act as a counter. 

The BBS loads HL with the value 
that's located in the first two positions 
of the string. C is bumped twice, 
changing its value to 1. Because de- 
leted messages are marked by being set 
to a negative value (your computer 
uses 2's complement notation), if bit 7 
of the value in the H register is a 1 , it's 
negative and thus ignored as a killed 
record. 

If the number in this position isn't 
negative, it's compared with the value 



If the message 
numbers exceed the 

limit, the BBS 

removes ail deleted 

messages and text files. 



that we're searching for by the RST 
18H instructions. In effect, RST 18H, 
in 1 byte, subtracts the contents of the 





Program 


Listing I. 


BBS code that locates message numbers. 


01740 




SEARCH 


FOREWARD FOR 


SPECIFIED 2-BYTE STRING 


01750 


• 








01760 


FSRCH 


CALL 


PARAM 


;GET VARPTR(MNS) 


01770 


SEARCH 


LD 


DE.0000 


; SEARCH STRING 


01780 




PUSH 


HL 




01790 




POP 


IX 




01800 




LD 


C25S 


;STR. POS. COUNTER 


01810 


FSR010 


LD 


L, (IX+0) 




01820 




LD 


H, (IX+1) 


;GET FIRST PAIR FOR 


CMPR 










01830 




INC 


C 




01840 




INC 


c 


;BUMP STRNG POINTER 


01850 




BIT 


7,H 


; CHECK FOR NEGETIVE 


01860 




JR 


NZ,REVR 


;NEGETIVE - DEAD FILE 


01870 




RST 


18H 


; COMPARE HL/DE 


01880 




JR 


Z,FSR100 


; FOUND 


01 890 




JR 


NC.FSR100 


*TARGET>SOURCE 


01900 


REVB 


INC 


IX 




01911 




INC 


IX 




01920 




DEC 


B 




01930 




DJNZ 


FSR010 


;LOOP TIL FOUND 


01940 


FSR100 


INC 


C 


iSTRPOS+1 


01950 




SRL 


C 


; (STRPOS+D/2 


01960 




LD 


B,0 




01970 




PUSH 


BC 




01980 




POP 


HL 




01990 




JP 


BASIC 


;PASS TO BASIC 

Iml 



Program Listing 2. BBS code to interface Program Listing I with Basic. 



430 POKE FD+l,INT(MN/256) :POKE FD,MN-( INT(MN/256) *256) : 

S-USR3(VARPTR(MNS) ) : RETURN 

2730 IF (SN-0) OR (LEN(MNS)=0) THEN SL=0 :SH=0 :SN=0 :NWS«* 

GOTO 2820 

2740 POR S=LEN(MNS)-1 TO 1 STEP-2:HN-CVI (NIDS(HN$, S,2) ) 

2750 IF (LEN(NWSX2*MX) AND (MN>0) THEN 

NKS=MID$(MN$,S,2) +NW$: P$«=CHR$(INT( (S+U/2) ) +PS:GOTO2770 

2760 AS="MSG0000/BBS*+DDS:GOSUB860:KILL A$:SN»SN-1 

2770 NEXT:IF LEN(NW$) >1 THENSL»CVI (LEFT$(NW$,2) ) ; 

SH-CVI (RIGHTS (NWS, 2) ) :GOSUB220 ELSE SL-0 :SH«0 :GOTO 2820 

27 80 POR P-l TO SN 

2790 GET 1,ASC(MID$(PS,P,1) ) 

2800 PUT l r P 

2810 NEXT: CLOSE 

2820 GOSUB190:GET 3,1:LSET SLS-MKIS(SL) :LSET 

SHS-MKIS(SH) :LSET SN$-MKI$(SN) :LSET SC$-HKI$(SC+1) :LSET 

ND$-HKIS(ND) :LSET NMS-MKlS(NM) :LSETDS$«MKI$ (DS) :PUT 3,1 

2830 FIELD 3,255 AS ZMSiLSET ZM$=NW$:PUT 3,3:CLOSE 

2840 RUN 



DE register pair from the contents of 
the HL register pair, ignoring the re- 
sult yet saving the flag status. 

If the RST 18H command sets the 
zero flag, the BBS has found the mes- 
sage number. But if the Carry flag isn't 
set, you've gone too far. In either 
event, the BBS increments the C 
counter by 1, then divides it by 2 by 
shifting it one position to the right 
(SRL C), placing zero in the B register, 
and moving BC to HL to pass to Basic. 

If the message number is still 
unknown, the BBS bumps IX, to 
point to the next pair of characters, 
decrements B, and initiates DJNZ, 
looping to FSR010 until done. The JP 
BASIC instruction passes the value in 
the HL register (the record number 
that we're seeking) to Basic. 

Program Listing 2 shows how Basic 
interfaces with the code in Program 
Listing 1. Basic defines FD as the ad- 
dress of SEARCH +1. Line 430 
POKEs the LSB of the number that 
you're searching for into SEARCH + 
1, and the MSB into SEARCH + 2. A 
call to USR3 returns S equal to either 
the record number you want or to the 
next-highest record number. 

Lines 2730-2840 make up the close- 
out routine. This is done first by 
compressing the number of messages 
on the board so they don't exceed the 
maximum set by the sysop. If you're 
under the limit, write the index back to 
disk. If, however, the message numbers 
exceed the limit, the BBS removes all 
deleted messages and text files. Any ex- 
cess messages are removed with NW$, 
a new index string. This new index 
starts removing messages at the high 
end of MN$ until NW$ is equal to 
2* MX, the maximum number of mes- 
sages the sysop allows. Everything be- 
low that point gets killed, and NW$ is 
written to disk. ■ 



The BBS Express, 80 Micro's bulle- 
tin board system, is open 24 hours a 
day. Call us at 603-924-6985 to see the 
finished product. UART parameters 
are 300 baud, 7-bit words, one stop bit, 
and even parity. 

You can reach J. Stewart Schneider 
and Charles E. Bowen either through 
their bulletin board at 606-739-6088 or 
c/o Saturday Software, P.O. Box 404, 
Cat let tsburg, KY 41129. 
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Stevens' 
Computer 




Discount 



THE ULTRA HIGH PERFORMANCE MS DOS PERSONAL COMPUTER 

<i99QR nn Tandy 200 ° 

<P££93.UU 26-5103-51 1 1 

I More spaed and storage than IBM-PC 
) Choose from the hottest software 
I User- Expandable for future needs 
I 128K. two D/S D/D slim drives 
I VM-1 green screen monitor 

We also have similar | 

savings on all Radio 

Shack, Epson, Brother, 

Citoh, 3M, Cardco, 

Hayes, Sanyo and much more 



ORDER LINE 
215-935-2006 

P.O. Box 525 
Phoenix ville, PA 19460 





Power 
Problems? 



SURGES! 

SPIKES! 

RFI/EMJ! 

WPS! 

SAGS! 

BLACKOUTS! 

BROWNOUTS! 



AEGIS" Power Conditioning Equipment . THE SOLUTION 
Protects From Damaging Voltage Surges, Lost Data. & Costly Down Time 

SPIKE SPIKER 




ILJla ■ ■ ■ Transient Voltage Suppressors & Noise Filters 
■ ]■ ■ ■ ■ Eleven Models — All Models Rated 120V, 1SA 
^V^^^^^^J Deluxe Power Console— 2 stage transient absorber dual 
U 5-stage filter, common & differential mode protection, 

nano seconds response clamping at 150V 8 individually switched sockets; 
(used, mam switch. T cord and status lite $19.95. 

Quad Power Console -6 stage transient absorber, dual 
b stage filter . common & differential mode protection pico 
second response, damping at 13W, lour outlets, fused, 
master switch. 7 cord and status hgnt $75.95 

fM ll-0irec; AC Plug In. 2 stage transient absorber, dual 
3 stage filter, common & differential mode protection, nano 
second response; clamping at 150V, two outlets and status 
hie $44.95 

LINE-SAVER™ 

^nr~ Standby Uninterruptible Power System 

«**•• —Clean Reliable Power System— 

^ Model LS-240- 240 watts- V A capacity increased back 

1 up time 11 mm full load 27 mm ft load 43 mm 

"i load 4 AC outlets. 3- staged transient protection, dual 4-staged RFi/EMi filter; 
sealed rechargeable internal battery, master control switch, test switch, exter- 
nal fuses, detachable 6 cord, external DC connectors for mobil use and ex- 
tended hold up time many more exclusive features $485 00 

Call or mile lor tree literature 

Dealer inquires inviteO 



• 485 
INSTANT ORDER LINE 

800-524-0400 TWX 501-651-2101 



nao§> = 

6584 Ruch Rd Depf 80 M 
Bethlehem, PA 1810/ H 



IN PENNA. 215-837-0700 

PA Res add 6% sales tax. lot COO add $3 00 + 
snipping & handling All prepaid SPIKE SPIKER 
orders freight allowed All LINE SAVER orders add 
$10 00 snipping i handling 



PROGRAMMING TOOLS 
FOR YOUR TRS-80® 



INSTANT ASSEMBLER 

The INSTANT ASSf-MBLLR b ,> powerful machine language development syster I 
TRS-80 One program contains the editor ind debugger It allows you to 

assemble directly to memory and immediately debug youi programs with the built In single 
stepping debugger Quickly switch from assembler to debugger and back again without 
losing the source code This feature makes INSTANT ASSEMBLER an excellent learning 
tool (or the beginner and a super fast development system tor the experienced programmer 
INS TAM ASSLMBI.E.R has many other unique features It delects syntax errors as source is 
entered and stores its source in a compressed format that uses only 4o" K as much memory as 

i -emblerv It is incredibly fast and will assemble 10K of obiect code In lust 8 M 

will also create relocatable code modules that can be saved on disk or tape and linked 

1 for very large or modular assemblies INSTANT ASSEMBLER comes with a 

comprehensive 65 page IrtfrtK turn manual and is available in several vent KM I I lift, n • 

machines The CP M version does not run on all machines vi inquire before ordering. 

TAPE INTASM 2.1 for Model 1 and 3 $39.95 

DISK INTASM 2 1 for Model I and 3 $49.95 

DISK INTASM S for Model 4 $69 95 

DISK INTASM 3 for CP M $69 95 

INSIDE LEVEL II 

omprehensive reference guide to the Model 1 and Model 3 ROM: vMd 
allows the machine language programmer to easily utilize the sophisticated routines they 
contain Concisely . «plams set ups calling sequences, and variable passage for number 
conversion, arithmetic operations, and mathematical fundi • -.yboard. tape, 
and vkI. adttton, the 18 chapters include a large body 'I >lli. I W 
useful to the programmer 80 Micio said "The book has no flaws, it is a perfect gem " Byte 
Magazine said *l recommend this book tn venous machine language programmer * 
INSOM 1 1 vi I II $15.95 

DEMON DEBUGGER 

DFMON (for DEbugger and MONitor) is a sophisticated tool uith which you can explore and 
debug machine language pmgrarm The STEP mode has l'f different commands and villi 
step through machine language | 'i ming you the address. 

hexadecimal value. Zilog HHMlMJlliC leyislcr contents, and step count for im. h instni, ti. in 
The MONITOR mode has 2b different commands including a labeling rHirnni 
DEMON is available cm tape or disk and includes a comprehensive 40 page manual with 
many examples 

DEMON 10 for Model 1 and 3 $39 95 

DEMON 2 for M.Kiel 4 $39.95 

DISK INDEX 

DISK INDEX will assemble an alphabetized index of every disk in your collection Simply put 
I, -« in the computer one after another, and DISK INDEX will quickly read the ; 
.ind free space left It will recognize any DOS and disk density (except CP, M) and 
catalog disks for the Model 1. 3. and 4 The whole index or any selected pari may be 
displayed on the screen or pnnted on paper in several different formats DtspUi. 
include programs grouped by disk name, by program name, disks in order of decreasing free 
space, and by program showing the number of backup copies of each one The index itself 
■lored on disk for future access and update A 48K machine will hold up to 255 disks 
M 'v.'i Jinxl [i-L-jriins In each file and you I n * . N | DIsK 

INDEX comes wtlh a comprehensive 28 page instruction manual 
DISK INDLX 3 2 for M.Kiel 1. 3. or 4 $39.95 

TELCOM 

Mumlurd Mici it. ...communications programs TELCOM I lias nn I 

le.ituresneeded li 'communicate with bulletin boards, time tfM ■■',.. 

netween two disk-based micros over modems or direct wire It is menu dnven and extremely 
simple to use TELCOM II is an enhanced version of this program, which also supports the 
l.YNC protocol which will automatically detect and correct cm HI In transmission FTIes can be 
Of fetched from an unattended computer The instruction manuals for both programs 
are available separately for $ij to help you decide which program is best suited to youi needs 

TELCOM I for Modal 1. 3. or 4 $39.95 

TELCOM II for Model I or 3 $69.95 

MODEL I SPEED UP 

The SK 2 is a hardware modification foi the Model 1 that allows CPU speeds to be n 
by 50% or 100% Speeds may be changed with a toggle switch (not included I or on software 
rnmmand It can also be configured to return lo normal speed any time a disk is active It 
mounts inside the keyboard unit with only 4 necessary connections and is easily removed if 
nputet ever needs service TEie SK 2 has been field proven by 3 years of use and 
comes fully assembled with socketed IC's. 
SK-2 $29.95 



ORDERING: Ten day money back guarantee. Include $2.50 for postage and handling. 
California residents add 6% tale* tax. Visa. MasterCard and COD orders accepted 
SPECIFY MODEL NUMBER. Dealer inquiries Invited. 

MUMFORD MICRO SYSTEMS 

Box 400-r Summerland. California 93067 (805) 969-4557 



See List of Advertisers on Page 145 
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BASIC TAKES / by Richard Kamella 



Arrays Make Data Input 
An Easy Deal 



A Basic array is a list of related 
data items, either numbers or 
strings. You store related data under 
one variable name, and you usually 
delimit the number of items the array 
can accept. For instance, the array 
A(10) holds 10 data items in the array 
named A. A primary advantage of ar- 
rays is that they let you input large 
amounts of related data quickly. 

Numeric vs. String Arrays 

Program Listing 1 , Numeric Array, 
demonstrates how to set an array of 
numeric variables. It starts with a data 
statement (line 110) that contains the 
data the program loads into the array 
variables. Note the form: I've sepa- 
rated each number in the data state- 
ment with a comma. 

The dimension statement (DIM) in 
line 120 creates an array with space for 
five variables. The program dimen- 
sions A to 5 to accommodate the five 
numbers in line 1 10. 

Line 140 reads the data into array 
variables A(l)-A(5). To see this, run 
the program, then print A(l), A(2), 
and so on. 

In Program Listing 2, String Array, 
the data statement in line 110 contains 
string data (text) rather than numbers. 
The strings in a data statement don't 
need quotation marks, as is necessary 
when you type in Z$= "PLUTO". 

Line 1 1 5 clears 200 bytes for string 
storage. The Clear statement must 
come before the dimension statement. 
Always clear enough bytes to allow for 
the string space your program needs for 
arrays, string variables, and literals. 

A string array variable must take 
the form A$(X) unless you first estab- 



The Key Box 

Models I, III, and 4 
Basic 




lish it as a string with the DEFSTR 
statement. 

Rules to Remember 

A data statement can be as long as 
your computer accepts (approximate- 
ly 255 characters). If you run out of 
space, you can continue a data list on 
more data statement lines. Basic reads 
data sequentially, from left to right, 
from the lowest to the highest line 
numbers. 

You can put data statements any- 
where in a program, but you should 
put them at the beginning of the pro- 
gram for easy reference. 

It's not essential that you dimension 
arrays containing fewer than 1 1 items, 
but I recommend including dimension 
statements for two reasons: You save 
memory by defining the limits of arrays 
and it's good programming practice. 

The statement DIM A(10) sets up 
an 11 -item array because arrays start 
with zero. In Listings 1 and 2, Basic 
sets numeric array A(0) to a zero value 
and string array A$(0) to a null value. 

In some programs you might not 
start with A(0) for reasons of con- 
sistency. For example, in the String 



Array program in Listing 2, it makes 
sense to have the array subscript cor- 
respond to the month it represents. 
January is the first month, so you 
should start with A$(l). 

You can assign an array value with 
subscripts of zero to 10 without di- 
mensioning an array or giving values 
to other subscripts in the array. For 
example, the statement A(10)^ 10.5 is 
legal, even if the program doesn't di- 
mension, read, or assign values to 
A(0)-A(9). 

You can dimension several arrays 
with one DIM statement by using the 
form DIM A(50), B$(Y), Zl(5). To re- 
dimension an array you must precede 
it with a Clear statement. Failure to do 
so results in a Redimensioned Arrav 
(DD) error. 

A Bad Subscript (BS) error results 
from using subscripts outside the 
limits of the array. An Out of Data 
(OD) error occurs when Basic reads a 
value into an array without sufficient 
data. (For more information on error 
messages, refer to Basic Takes, No- 
vember 1984, p. 158.) 

Some programs read data lines 
more than once. This requires a Re- 



136 • 80 Micro, January 1985 



I 



• FREE SHIPPING* 

WITHIN CONTINENTAL 48 STATES 
ON PREPAID CASH ORDERS ONLY 




We've MacJe 
Ri i aiI Prjces 

A 1'hlNCf of ThE 

. PAST. . . 

OrcIer Toll Free 
1-800-225-1182 



THIS IS AN ORDER LINE ONLY! 

DIRECT ALL INQUIRIES AND 

NY ORDERS TO 

(718) 445-7124 



$69.95 
OMNITERM 

by LindDerg Systems 
Mdl l/lll Or IV 




$109.95 

LAZYWRITER 

MDL I, III or IV 
SEE LAZY OPTIONS BELOW 



DOSPLUS 



Mdl I or III 3.5 

Mdl IVA 

Mdl II 



84.95 
129.95 
199.95 



ELECTRIC 
WEBSTER 

W/Corr 

$118.95 



DOTWRITER 

4.0 W letterse: 

Mdl l/lll or IV 
$84.95 



NEWSCRIPT MAXI 



Ver. 7.1 

$99.95 

W/Label - S 109 9b 



CRAS 
MGRII 
STAT 



74.95 
149.95 
159.95 



LE SCRIPT 

Mdl l/lll or IV 
$108.95 



DATAGRAPH 

Mdl I. IN or IV 

$69.95 

Pie 0p6on-S29.95 



COMPUSERVE 

STARTER KIT 

with 5 Free Hours 

$33.95 



TALLY 
MASTER 

Mdl I or III 

$59.95 



MULTID0S 

Singw or Dourjlc Dentil* 

$49.95 



MZAL FLIP N' FILE 



REL III 

$74.95 



Original 50 Disk 

$19.95 



COPYART II 

Mdl I or III 

$84.95 

SPECIFY PRINTER 



EPSON PRINTERS 

CALL 
FOR BEST PRICES 



LETTER QUALITY 
PRINTERS 

DYNAX & TTX 

CALL FOR BEST PRICES 



PROSOFT UTILITIES 

TRASHMAN Model I or III $34.95 

FASTER Model I or III 26.95 

RPM - Model I or III _ 21.95 

LAZY OPTIONS 

LAZY FONT (Epson) 44.95 

LAZY MERGE 39.95 

LAZY DOC 4995 

LAZY Draw. Do. Tab, Calc 34.95 

MAIL LIST PROGRAMS 

POWER MAIL PLUS-Mdl 2/12/16 . 129.95 

POWER MAIL PLUS-Mdl l/lll 129.95 

POSTMAN MASS MAIL Mdl l/lll 74.95 

MAXI MAIL-Mode l III 64.95 

Z BASIC MDL l/lll 79.95 



MICROTERM Model I or I 



69.95 



TZAL — Model III Tape 39.95 

BASIC EDITOR Model l/lll Tape 24.95 



MAS 80 Acctg System 

Integrated G/L. A/R, A/P & Ck Reg. 

Retail S599.00 SPECIAL $399.00 

Overview — $5.00 Credited on Purchase 

EPSON PRINTERS CALL FOR BEST PRICES' 

TABCO PAR DUAL PRINTER SWITCH 69.95 

MICRO BUFFER -..,- . -• ■■• 139.95 

NETWORX 4 PLUG SURGE PROTECTOR 59.95 

PRINTER STANDS 




SPACE AGE 
MX tC '■ 

W.(. r oiine 82A Space Age 
Vicoime 83A Space Age 
NEC 80?3A Space Age 
MX 100 Space Age 
Multiuse 1 8« 1 ?«6> " . 
No Frills 1 32 C 
Gonna Banana 
FX80 Space Age 
m00 Space Age 

» STAND 



NO FRILLS 

14 95 1995 

27 50 29.95 

Oca 27.50 29.95 

34.95. 39 95 

Ota 27.50. -29 95 

34.95: 39.95 

24.95 N/A 

N/A B -24.95 

N/A P 19.95 

N/A r 34.95 

N/A I • 44.95 

tOR UOS) ■ • "' '-■■-■ 



VisiT Our Rh \il Locatjon 
whEN jn The New YoRk Area 



ZIP BOX RELOADS 



Epson MX 70/80-20 Yds 
Epson MX 100-30 Yds 
NEC/Prowriter-14 Yds. 
Centronics 730/737/739/779 or 
LPI/II/IV 16 Yds. 



i Doz. 
24.00 
30.00 
21.00 



Doz. 
42.00 
51.00 
36.00 



18.00 33.00 



U IV 80»tS Vt >ntf.«J,.*H mj« (Mo nylon ml injvr no ifvmOng 
•-en & IWD* *ny rrv> 



CARTRIDGES 



Each 
7.00 



Doz. 
60.00 



Epson MX 70/80 

Epson MX100 10.00 108.00 

Prownter8510&Nec8023A 7.50 75.00 

RSLPIII/V 6.50 66.00 

RSLPVI/VIII 6 50 66.00 

RSDSYWH llorDWP410Multl 6.00 66.00 

RSDSYWH II Nylon 6.50 69.00 

RSDMP 2100 Toshiba 1350 9.00 96.00 

MlCROLINE80/82A'83A/92 N/A 30.00 

MICROLINE84 '., x 40 Yds 5.50 60.00 

ANADEX -9O00Ser.es 10 00 108.00 

Diablo Hytype Il-Multi Strike 5.50 54.00 

Diablo Hytype II Nylon 6.00 60.00 

Qume-Multi Strike N/A 36.00 

NEC-5500/7700-Multi Strike 6.00 60.00 

Mannesman Tally 1000 6.50 66.00 

TTX 1014 8.00 90.00 

Brother HR I (Film) 5.50 60.00 

Silver Reed Ex55/77 (Film) 6.50 66.00 

Wang System 5 5.00 48.00 

Xeron 6/0/620 MemorywnteiMuIti 7.00 75.00 

IBM DisplayWriter-MuIti 8.00 84.00 

• &Pf 
■,' - ■ 

id? jn0 cylrtfgK are mjnwl 
Ij&f fdxvm manu*. 
— QUALITY QUARANTEED- 



Micro Images Industries Inc 

pjijumu 164-06 Crocheron Ave. Dept. L 
visa- .157 Flushing, N.Y. 11358 
(718) 445-7124 



MostetCord 



HOURS Mon -Thurs 10AM-6PM; Fn. & Sat 10AM-5PM 



ORDERING INFORMATION 

COO Orders add $? 00 Minimum credit card order $25 00 FREE shippmq on aB pre; 
- I with "-,: omental 48 states via UPS Ground Actual shipping and insurance charges 
apply on an COO orders, credit card onJcs. approved P/0 s and shipmenis outside the continental 
48 states CerMieO O W0 COO and credit cairj*. ^voeO unmedwtely Please allow 2 weeks tor 

utBtd to change 



.- See List of Advertisers on Page 145 
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Program Listing 1. Numeric Array program. 




100 REM * NUMERIC ARRAY * LISTING NO. 1 * 




110 DATA 10,6,9,23,15 




120 DIM A(5) 




130 FOR X-l TO 5 




140 READ A(X) 




150 NEXT X 




160 END 






End 



Program Listing 2. String Array program. 




100 REM * STRING ARRAY * LISTING NO. 2 * 




110 DATA JAN, FEB, MAR, APR, MAY 




120 DIM A$(5) 




130 FOR X-l TO 5 




140 READ A$(X) 




150 NEXT X 




160 END 






End 



Program Listing 3. Template program. 




100 REM * TEMPLATE * LISTING NO. 3 * 




110 DIM A(5) 




120 FOR X«=l TO 5 




130 REM * THIS LINE MUST BE REPLACED 




135 A(X)=X 




140 NEXT 




150 END 






End 



Program Listing 4. Dimension by Variable program. 




100 REM* DIMENSIONING BY VARIABLE * LISTING NO. 4 




110 CLS 




120 INPUT "HOW MANY ITEMS IN ARRAY LIST"?X 




130 DIM A(X) 




140 FOR C«l TO X 




150 PRINT "VALUE NUMBER'C 




160 INPUT Z 




170 A(C) -Z 




180 NEXT C 




190 END 









Program Listing 5. Coin Toss program. 




100 REM * COIN TOSS * LISTING NO. 5 * 




110 DIM P(2) 




120 FOR X-l TO 10 




130 T-RND(2) 




140 REM * MODEL 100, MAKE ABOVE LINE: 130 T-INT(1+RND(1) *2) 




150 P(T)-P(T) +1 




160 NEXT X 




170 PRINT 




180 PRINT "SCORE: HEADS:"P(1)" TAILS:"P(2) 




190 END 






End 









Program Listing 6. Card Dealer Program. 






100 


REM 


* CARD 


DEALER * 


LISTING 


NO. 6 


* 








110 


CLEAR 500 
















120 


DIM 


AS(52) 
















130 


RANDOM 
















140 


REM 


* MODEL 


100, MAKE ABOVE 


LINE: 


130 


V-VAL( RIGHT? (TIMES 


2)): 


FOR 


T=l 


TO V: G 


-RND(l) j 


NEXT T 












150 


B=l 


















160 


S$- 


•CDHS" 
















170 


R$= 


•A23 4567 89TJQK" 






























Listing 6 continued 



Card Dealer uses arrays 

to simulate dealing 

a deck of cards. 



store statement to set the data pointer 
back to the first item in the data list 
and prevent an OD error. 

At the location in the program 
where you want the pointer to move to 
the start of the first data line, type 
RESTORE. 

In a program with data on lines 1 10 
and 120, you can type in RESTORE 
120 to set the data pointer to the start 
of line 120 (Model 4 only). 

Programming Techniques 

Template, in Program Listing 3, 
demonstrates another way to establish 
a numeric array. Type in the listing, 
then type in 130 A(X) = X. This picks 
up the incremented value of X and 
passes it to array variable A(X). 

Now substitute INPUT "VALUE"; 
A(X) for line 130. The program waits 
for you to input a numeric value and 
press the enter key. 

Here's a change for the Models I 
and III: 130 A(X) = RND(100). This 
line provides random input, and is 
useful in programs that check varied 
outcomes using the same set of ran- 
dom values. 

Dimensioning by Variable, in Pro- 
gram Listing 4, lets you input the di- 
mension of the program array. Line 
120 prompts you to set the number of 
array subscripts. Input 10, and line 
130 becomes DIM A(10). The For. . . 
Next loop in lines 140-180 lets you set 
values forA(l)-A( 10). 

Coin Toss, in Program Listing 5, 
tests probability against results and 
shows how array values can change 
during a program run. P(l) is player 1, 
who wants heads, and P(2) is player 2, 
who wants tails. 

The For. . .Next loop in lines 120- 
160 tosses the coin 10 times. Line 130 
generates random output. If it outputs 
a 1, line 150 increments the P(l) score 
by 1. If it produces a 2, the program 
adds 1 to P(2). Line 180 prints the end- 
ing scores. 

Program Listing 6, Card Dealer, 
uses arrays to simulate dealing a deck 
of cards. Line 110 clears 500 bytes. 
Line 120 reseeds the random number 
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generator, and in line 1 50 B = 1 repre- 
sents the first card in the unshuffled 
deck. 

Line 160 contains the suits: clubs 
(C), diamonds (D), hearts (H), and 
spades (S), and line 170 contains the 13 
card ranks. 

The suit loop (S) starts in line 180 
and the rank loop (R) starts in line 
190. The four suits and 13 ranks give a 
total of 52 cards. Line 200 makes the 
card into the appropriate midstring 
values of rank (RS) plus suit (SS). Line 
210 increments B by 1 to set up crea- 
tion of the next card. 

The random dealing routine is in the 
For... Next loop in lines 230-290. 
Line 230 starts the loop from 1-52 to 
ensure that all cards are dealt. Line 
260 checks the array string to see if it's 
already dealt (equal to a dash). If so, 
the program returns to line 240 for an- 
other random number. 

Line 270 prints the card chosen, and 
line 280 changes the array variable to a 
dash so the program doesn't pick it up 
again. The program displays the cards 
in the order they're dealt. Run Card 
Dealer again and they appear in a dif- 
ferent order. This program is a good 
foundation for creating a card game 
program. 

Multiple-Dimension Arrays 

So far I've discussed only single- 
dimension arrays. Array variable 
A(4,4,4) is an example of a three- 
dimensional array representing width, 
height, and depth. Such an array 
might be useful in representing 
Rubic's cube (although it assumes the 
puzzle has internal cubes). 

As a demonstration of multiple ar- 
rays. Annual Profit /Loss in Program 
Listing 7 uses a double-dimensioned 
array to figure year-end profits or 
losses. 

The months given as data in lines 
110-120 become the values of 
B$(l)— B$(12) in line 160. The DIM 
statement in line 140 establishes a nu- 
meric array, A(12,2), 26 variables, and 
a string array, B$(12). 

Note the mix of string and numeric 
arrays. In A(12,2), the 12 establishes a 
row for each month, and the 2 estab- 
lishes columns for monthly income 
and expense figures. 

The For. . .Next loop in lines 150- 
170 reads the months into the B$(X) 
array. The loop in lines 180-260 prints 
the name of the month and leads into 



Listing 6 


ontinued 


180 


FOR S=l TO 4 


190 


FOR R=l TO 13 


200 


A$(B)=MID$(R$,R,1) +MID$(S$,S,1) 


210 


B=B+1 


220 


NEXT R,S 


230 


FOR X-l TO 52 


240 


C=RND(52) 


250 


REM * MODEL 100, CHANGE LINE 240 TO 240 C=INT(1+RND ( 1) *52) 


260 


IF A$(C)«"-" THEN 240 


270 


PRINT A$(C) ; " " ; 


280 


A$(C)«"-" 


290 


NEXT X 


300 


END 




End 



Program Listing 7. Annual Profit/Loss program. 

100 REM* ANNUAL PROFIT/LOSS * LISTING NO. 7 * 

110 DATA JANUARY, FEBRUARY, MARCH, APRIL, MAY, JUNE, JULY 

120 DATA AUGUST, SEPTEMBER, OCTOBER, NOVEMBER, DECEMBER 

130 CLS 

140 DIM A(12,2) , B$(12) 

150 FOR B=l TO 12 

160 READ B$(B) 

170 NEXT 

180 FOR B=l TO 12 

190 PRINT B$(B)" REPORT" 

200 PRINT 

210 FOR C=l TO 2 

220 IF C=l THEN INPUT "INCOME";M ELSE INPUT "EXPENSES "; M 

230 A(B,C)=M 

240 NEXT C 

250 CLS 

260 NEXT B 

27 CLS 

280 PRINT "PRESS A KEY TO SEE NEXT ENTRY." 

290 PRINT "ANNUAL RESULT" 

300 PRINT "MONTH"; TAB (10) ; "INCOME" ; TAB ( 20) ; "EXPENSES" ,• TAB ( 30) ; 

"PROFIT" 

310 PRINT STRING$(39,"-") 

320 FOR B=l TO 12 

330 T-A(B,1)-A(B,2) 

340 PRINT B$(B)TAB(10) ;A(B,1) ;TAB(20) ;A(B,2) ;TAB(30) ;T 

350 V>=V+T 

360 Z$=INKEY$ 

370 IF Z$="" THEN 360 

3 80 NEXT B 

390 PRINT TAB ( 25) ; "TOTAL" ;V 

400 END 



a loop within a loop in lines 210-240. 
If the C equals 1, the program inputs 
income; if it equals 2, the program in- 
puts expenses. 

January's income variable is A(l,l) 
and its expense variable is A(l,2). The 
subcripts continue to A(12,l) for in- 
come and A(12,2) for expenses for 
December. 

Line 230 makes the array variable 
worth the value you input for M. (You 
can combine lines 220-230 by substi- 
tuting A(B,C) for M in line 230 and 
deleting line 230.) 

The second part of the program 
prints the results, month by month, as 
well as the month's profit/loss total. 
The program obtains the results by 
subtracting each month's expenses 
from profits (line 330). 



Line 340 displays the information, 
line 350 increments V by the month's 
total, and line 390 displays the yearly 
total. 

You can use triple- or even quad- 
ruple-dimensional arrays. Multiple-di- 
mensional arrays use up memory, 
however. A 4-by 4- by 4-dimension ar- 
ray sets aside space for 64 variables. 

Next Month 

Next month's topic is streamlining 
programs. Call it packing, call it 
crunching, it's all about how to make 
programs shorter and faster. See you 
then.B 

You can reach Richard Ramella at 
1493 Mt. View Ave., Chico, CA 
95926. 
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THE NEXT STEP / by Hardin Brothers 



Teaching Old Basic 
New Tricks 



One of the most fascinating as- 
pects of computer languages like 
Lisp, Logo, and Forth is that they 
aren't completely defined; you can 
customize them to suit your needs. 
The longer you use them, the more 
functions your implementation of the 
language has. The computer constant- 
ly "learns" new commands as you 
program. 

Model I/UI Basic, on the other hand, 
seems set in cement because most of its 
code, as well as Disk Basic's, is stored 
in unchangeable ROM. Whenever you 
type in NEW, RUN, or CLEAR, the 
computer forgets everything you've 
done and starts with a clean slate. But 
Basic really isn't set in cement; you 
can make changes to it. Several com- 
mercial products are available that let 
you extend TRS-80 Basic with new 
commands. You can also add your 
own commands to Basic to make it do 
whatever you want. 

During the next few months, I'll 
describe ways you can add commands 
to Basic. This month I'll explain some 
of the fundamental concepts; in future 
columns I'll include some specific 
commands as well as methods for 
hooking them into the Basic inter- 
preter. 




Basic's Structure 

As you'd expect from any large pro- 
gram, the TRS-80's ROM Basic is 
well-organized. When you run a pro- 
gram, the Basic interpreter begins ex- 
ecuting each command with the HI. 
register pointing to the last byte that 
the computer parsed and executed. 
The interpreter then skips over spaces, 
tabs, and line feeds to find the next 
byte in the program, which it places in 



Key Word 


Hex Address 


Key Word 


Hex Address 


CVI 


4152 


FIELD 


417C 


FN 


4155 


GET 


417F 


CVS 


4158 


PUT 


4182 


DEF 


415B 


CLOSE 


4185 


CVD 


415E 


LOAD 


4188 


EOF 


4161 


MERGE 


4I8B 


LOC 


4164 


NAME 


41 8E 


LOF 


4167 


KILL 


4191 


MKIS 


416A 


& 


4194 


MKSS 


416D 


LSET 


4197 


MKDS 


4170 


RSET 


419A 


CMD 


4173 


INSTR 


419D 


TIMES 


4176 


SAVE 


41A0 


OPEN 


4179 


LINE 


41A3 


Table. Addresses of the 3 -byte vectors for 


each Disk Basic keyword. 



the A register and uses to determine its 
next action. 

Every Basic command is free to use 
the 7.80' s registers as necessary as long 
as it leaves the correct values in HI 
and AF and restores the stack when 
finished. Also, the computer executes 
every Basic command as a subroutine, 
and each command ends with a RET 
instruction unless it discovers a pro- 
gram error. You can write your own 
Model I III Basic commands as long 
as they have the structure of a 
subroutine. In fact, you can do this in 
several ways. 

The real challenge isn't writing new 
commands, it's finding an appropriate 
way to hook them into the Basic inter- 
preter. There are four general solu- 
tions. You can substitute a new com- 
mand for a Disk Basic verb, tack one 
on to the end of a Disk Basic verb as a 
new syntax form, link one through a 
DOS exit vector, or (my favorite) 
hook one into Basic's command inter- 
preter. 

Making the Changes 

The Table lists the 3-byte valor ad- 
dresses for each Disk Basic command 
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and function. When you use Cassette 
Basic, it loads each vector with a JP 
instruction to the 1.3 error routine (the 
only exception is that the Model III 
uses TIMES). 

When you run Disk Basic, it loads 
each vector with a JP instruction to a 
routine that supports its command or 
function. You can replace any Disk 
Basic verb with a new routine by 
changing the vector's jump address; if 
you do so, of course, the original 
function no longer works. 

Program Listing 1 demonstrates 
this technique; the program turns the 
Disk Basic Name command into a 
beep command, and produces a short 
tone through the cassette port or 
through the interna] speaker of a 
Model 4 in Model III mode (see line 
160 for the change for the Model III 
mode). 

Along with the other listings this 
month, Listing 1 is an example rather 
than a working program. The new 
routine sits in the middle of unprotect- 
ed memory and bombs if Basic over- 
writes it. (I'll discuss loading and pro- 
tecting techniques in a future column.) 

You can load Listing 1 from DOS 
Ready and then enter Disk Basic, or 
load it once you enter Disk Basic. 
Then use the DEF USR command 
shown in the comments to hook the 
routine to Basic. Whenever the inter- 
preter comes across the command 
Name, it will produce a beep and then 
continue normally. Since the new rou- 
tine doesn't require any parameters, it 
doesn't have to worry about updating 
the HL register; it merely, maintains 
the value that Basic put there. 

Three problems accompany replac- 
ing a Disk Basic command with a new 
routine. First, unless you're using 
Cassette Basic, you have to give up a 
function to get a new one. Second, the 
name you choose for the routine gen- 
erally has no relationship to its new 
function. And third, only a limited 
number of Disk Basic commands are 
available; if you want to establish a 
full set of new commands, you'll 
quickly run out of possible hooks. 



Program listing 1. Demonstration showing how to replace Disk Basic verbs by changing 


the vector 's JP address. 
















00010 


;Demonst ration 


Routine 11 










00020 


; 














.•fiif 


;Use of 


the NAM 


E command In 


Basic will create 






00040 


;a "beep* from 


the cassette 


port 


(or Model 4 






00050 


.■internal speak 


er) . Disconnects 


the normal 






00060 


(NAME command i 


f your Disk Basic 


uses it. 






00070 
















00080 


(To initialize: 












00090 


; Load 


from DOS Ready, then enter Basic. 






00100 


; Type 


"DEFUSR 


= &HA000: A 


■USR IB) * 






00110 


; Then 


test by 


typing NAME 










00120 


1 










41 8E 




00130 


SAME 


E.V 


418EH 




;Addr. of NAME vector 


0080 




00140 


TONE 


BQC 


80H 




; Change if needed 


0080 




00150 


LENGTH 


EQU 


80 H 




;Change if needed 


00FF 




00160 
00170 


PORT 


EQU 


BFFH 




(Use Port 90H for 

Mod 4 in Model III mode 






00180 


; Initialize:: 


on Section: 






A000 




00190 




ORG 


0A000H 




(Pick convenient addr 


Acee 


3EC3 


00200 


BEGIN 


LD 


A.0C3H 




;jump instruction in A 


A002 


210CA0 


ftili 




LE 


HL, START 




;Get routine address 


A00S 


328E41 


00220 




LD 


(NAME) ,A 




;Put JP in place 


A00B 


228F41 


00230 




LD 


(NAME+1) ,HL 




;Put addr. in place 


A00B 


C9 


0e240 

00250 




RET 






;Return from USR call 






00260 


; Beep 


Routine 


called by NAME: 




A00C 


16 80 


00270 


START 


LD 


D.TONE 




;Tone and lenqth 


A00E 


IE 80 


00280 




LD 


E, LENGTH 




; into DE 


A010 


0EFF 


00290 




LD 


C , PORT 




(Output port in C 


A012 


3E02 


00300 




LD 


A, 2 




.•Toggle sound off 


A014 


F3 


00310 
C0320 




DI 






(Interrupts off for tone 


A015 


3D 


00330 


SNDON 


DEC 


A 




;A = 1 


A0J6 


E37 9 


00340 




OUT 


(C) ,A 




;Send it out 


A018 


42 


350 




LD 


B,D 




;Get count 


A019 


10FE 


00360 
00370 




DJNZ 


$ 




;And wait 1/2 cycle 


A01B 


3C 


00380 


SNDOKP 


INC 


A 




(A = 2 


A01C 


ED79 


00390 




OUT 


(C),A 




(Send it out 


A01E 


42 


00400 




LD 


B,D 




jGet count 


A01F 


10FE 


00410 
00420 




DJNZ 


$ 




(And wait 1/2 cycle 


A021 


ID 


00430 




DEC 


E 




(Drop length count 


A022 


20F1 


00440 




JR 


NZ, SNDON 




(Repeat until done 


A024 


AF 


00450 




BOB 


A 




(A - 


A025 


ED7 9 


00460 




OUT 


(C) ,A 




;Turn off cassette port 


A027 


FB 


00470 




EI 






(Interrupts back on 


A028 


C9 


004 80 
00490 




RET 






(Return to interpreter 


A000 




00500 




END 


BEGIN 






00000 TOTAL 


ERRORS 












1667 


TEXT 


AREA BYTES LEFT 








End 



The Key Box 

Model III 

Assembly Language 
Editor/ Assembler 



Program Listing 2. Demonstration showing how to create the simple beep generator as a 


Disk Basic verb followed 


by an e 


xclamation point. 








00100 


(Demonstration 


Routine *2 








00110 


; 












00120 


(Use of 


CMD! wi 


.1 create a " 


beep" 






00130 


(from the cassette port (or 


Model 4 






00140 


(internal speak 


er) . Does r.ot 


disturb normal 






00150 


(CMD uses. 










00160 


1 












00170 


(To initialize: 










00180 


: Load 


from DOS Ready, ther 


Enter Basic 






00190 


( Type 


"DEFUSR 


= 4HA00B: A-USR(B) " 






00200 


; Test 


by typi 


r.g CMD! 








00210 


; 








4173 




00220 


CMD 


EQU 


4173H 


(Vector addresses 


0080 




00230 


TONE 


EQU 


80H 


(Change if needed 


0080 




00240 


LENGTH 


r.0- 


8BH 


(Change if needed 


00FF 




00250 
00260 

00270 


PORT 
; 


EQU 


0FFH 


(Use Port 90H for 
Mod 4 internal spkr 






00280 


i Initialization Section: 




A000 




00290 




ORG 


0A000H 


;Pick convenient addr. 


A00B 


2A7441 


00300 


BEGIN 


LD 


HL, (CMD+1) 


(Get crig. addr. 


A003 


2215A0 


00310 




LD 


(ORIG+1) ,HL 


(Stuff address 


A006 


210DA0 


00320 




LD 


HL, START 


(Get new addr . 


A009 


227441 


00330 




LC 


(CMD+1) ,HL 


(Sub ours for orig 


A00C 


C9 


00340 
00350 




RET 




(Return from USR 






00360 


1 Beep 


Routine 


called by CMD! 


A00D 


F5 


00370 


START 


PUSH 


AF 


(Save status flags 


A00E 


7E 


003 80 




LD 


A.(HL) 


(Get value 


A00F 


FE21 


00390 




CP 


' I ' 


(Time to beep? 


A011 


2804 


00400 
00410 




JR 


Z,YES 


(Go if yes 


A013 


Fl 


00420 




POP 


AF 


(Else recover status 


A014 


C30000 


00430 
00440 


ORIG 


JP 


s-$ 


(Go to orig. routine 


AB17 


1180 80 


00450 


YES 


LD 


DE.TONE<8+LENGTH (Tone and len . to DE 


A01A 


0EFF 


00460 




LD 


C , PORT 


/Port to C 


A01C 


3EI2 


00470 




LD 


A, 2 


(Toggle sound off 

/ OrfflJ .' continued 
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Listing 2 von 


inued 
















ABIE 


F3 


00460 
0B490 






DI 




;Don't interrupt beep 




A01F 


3D 


0B508 


SNDON 


DEC 


A 


;A - 1 




A020 


ED79 


BB51B 






OUT 


(C) ,A 


,-Send it out 




AB22 


42 


B052B 






LD 


B,D 


;Get count 




A023 


10FE 


0B530 
00540 






DJNZ 


$ 


;Wait 1/2 cycle 




A02S 


3C 


00550 


SNDOFF 


INC 


A 


;A - 2 




AB26 


EU7 9 


00560 






OUT 


(C) r A 


;Send it out 




A028 


42 


00570 






LD 


B,D 


;Get count 




A029 


10FE 


0B580 

00590 






DJNZ 


$ 


;Wait 1/2 cycle 




AB2B 


ID 


00600 






DEC 


E 


;Drop length count 




A02C 


20F1 


00610 






JR 


NZ, SNDON 


;Loop until done 




AB2E 


AF 


00620 






XOR 


A 


;A - 




A02F 


ED7 9 


00630 






OUT 


(C) ,A 


;Turn off port 




AB31 


FB 


00640 

BB65B 






EI 




; Interrupts back on 




A032 


Dl 


BB660 






POP 


DE 


; Restore stack 




AB33 


23 


00670 






INC 


HL 


;HL==>Char after "!" 




A034 


C9 


00680 






RET 




/Return to interpreter 




A000 




0069B 






END 


BEGIN 






00000 TOTAL 


ERRORS 














16535 TEXT 


AREA BYTES 


LEFT 


























End 



Program Listing 3. Demonstration showing how to add a 


beep fund ion to Disk Basic by in- 


tempting the Basic interpreter as it starts to parse a command. 






00010 


.-Demonstration 


Routine 13 








00020 














00030 


;Use of 


a • I' w 


ill create a 


"beep" 






00040 


;from the cassette port (or 


Model 4 






00050 


; internal speak 


er) . Operates by intercepting 






BBB6B 


;control from Basic's commai 


d interpreter. 






00070 














00080 


;To initialize: 










00090 


; Load 


from DOS Ready, then enter Basic. 






0010B 


; Type 


"DEFUSR 


■= &HA00B: A 


■USR(0) ' 






00110 


; Test 


by typing 1 








0B12B 










4B03 




BB13B 


INTERP 


EQU 


4BB3H 


; Interpreter link 


0080 




00140 


TONE 


EQU 


80H 


;Change if needed 


• •80 




00150 


LENGTH 


EQU 


80H 


;Change if needed 


• BFF 




00160 
00170 
00180 


PORT 

; 


EQU 


BFFH 


;L'se Port 90H for 
Mod 4 internal spkr 






0019B 


; Initialization Section: 




ABBB 




B0200 




ORG 


0A000H 


;Pick convenient addr 


A000 


2A044B 


00210 


BEGIN 


LD 


HL,(INTERP+1) ;Get orig. addr. 


AB03 


221 SAB 


0B220 




LD 


(ORIG+1) ,HL 


;Stuff into program 


AB06 


21BDAB 


0B230 




LD 


HL, START 


;Get our address 


A0B9 


22B440 


00240 




LD 


(INTERP+1) ,HL ;Sub ours for orig. 


ABBC 


C9 


00250 
B0260 
00270 


; Beep 


RET 
Routine 




;Return from USR 


ABBD 


E3 


00280 


START 


EX 


(SP) ,HL 


;Get top of stack 


ABBE 


7D 


0B29B 




LD 


A,L 


;Cet lsb of return addr. 


A00F 


FE5B 


0B3BB 




CP 


5BH 


; and test it 


A011 


2003 


BB31B 




JR 


NZ,NO 


;Go if not xx5BH 


AB13 


7C 


BB32B 




LD 


A,H 


;Get msb of return addr. 


AB14 


FE1D 


BB33B 




CP 


1DH 


; and test it 


AB16 


E3 


BB34B 


NO 


EX 


(SP) ,HL 


/Restore stack & HL 


AB17 


C2B0BB 


0035B 
B0360 


ORIG 


JP 


NZ,S-S 


;Go if wrong return addr. 


AB1A 


CD781D 


00370 




CALL 


1D7 8H 


;Get next character 


A01D 


FE21 


00380 




CP 


' 1 ' 


;Beep requested? 


AB1F 


28B3 


00390 




JR 


Z,YES 


;Go if it is 


AB21 


2B 


00400 




DEC 


HL 


;Else fix HL 


AB22 


18F3 


00410 
0B420 




JR 


ORIG 


;And leave 






0043B 


; " 1 " Was found 






A024 


118080 


00440 


YES 


LD 


DE.TONE<8+LENGTH ;Tone and len. in DE 


A027 


BEFF 


0B45B 




LD 


C , PORT 


;Port address to C 


A029 


3E02 


00460 




LD 


A, 2 


;Toggle for off 


AB2B 


F3 


00470 
00480 


I 


DI 




;Don't interrupt beep 


AB2C 


3D 


004 90 


SNDON 


DEC 


A 


;A - 1 


A02D 


ED7 9 


00500 




OUT 


(C) ,A 


;Send it out 


A02F 


42 


00510 




LD 


B,D 


;Get tone count 


A030 


10FE 


00520 
00530 




DJNZ 


$ 


;Wait 1/2 cycle 


A032 


3C 


00540 


SNDOFF 


INC 


A 


;A - 2 


A033 


ED7 9 


00550 




OUT 


(C) ,A 


;Send it out 


A035 


42 


00560 




LD 


B,D 


(Get tone count 


A036 


10FE 


00570 
0B58B 




DJNZ 


$ 


;Wait 1/2 cycle 


AB38 


ID 


0059B 




DEC 


E 


;Drop length count 


AB3 9 


20F1 


00600 




JR 


NZ, SNDON 


;Loop until done 


AB3B 


AF 


00610 




XOR 


A 


;A = 


A03C 


ED7 9 


00620 




OUT 


(C) ,A 


;Turn off port 


A03E 


FB 


0063B 
00640 

00650 




EI 




.•Interrupts back on 


A03F 


23 




INC 


HL 


; Point to char after ! 


A040 


C9 


00660 




RET 




/Return to interpreter 


ABBB 




0067B 




END 


BEGIN 




BBB00 TOTAL 


ERRORS 










16253 TEXT 


AREA BYTES LEFT 




















h.mi 



It doesn *t matter 

which Disk Basic command 

you choose; the idea 

is to create a new 

syntax that would 

normally be impossible. 



Another technique is to add to the 
syntax of an existing Disk Basic com- 
mand. It doesn't matter which Disk 
Basic command you choose, although 
CMD is the most likely candidate. The 
idea is to create a new syntax that 
would normally be impossible. 

Program Listing 2 shows how you 
can create the simple beep generator as 
"CMD!" (or almost any other Disk 
Basic verb followed by an exclamation 
mark). However, this technique only 
works if you pick a Basic command 
normally used as the first or the only 
command in a Basic function. Don't 
try to use commands like 1NSTR that 
can only occur after an equals sign. 

Written this way, the new command 
is essentially a filter. When the pro- 
gram invokes the Disk Basic verb as- 
sociated with the command, it checks 
to see if the next character(s) is part of 
the new syntax. If not, control passes 
to the regular routine for that Basic 
verb. If you're invoking the new rou- 
tine, it performs its operations, sets 
HL properly, and uses a Return in- 
struction to get back to the normal 
flow of Basic. 

Listings 1 and 2 differ in two im- 
portant ways. First, the initialization 
section of Listing 2 doesn't destroy the 
original address in the CMD vector; 
instead, the program saves that ad- 
dress (at ORIG + 1 in line 430) so that 
it can jump to DOS's CMD routine 
when a command other than "CMD!" 
is interrupted. 

Second, the body of the beep rou- 
tine starts by saving the AF registers 
on the stack (line 370). Before the in- 
terpreter calls a Basic command, the 
computer processes the character fol- 
lowing the command token (the 1-byte 
representation of the command verb). 
Basic points the HL register to that 
next byte, then sets the status flags to 
indicate whether the byte is a colon (Z 
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TRS-80 



DISCOUNT 




Computers 

at Guaranteed 

Low Prices* 



ATONCP/M FOR II. 12. 16 



EPSON A NEC PRINTERS 



DYSAN DISKETTES 



HAYES MODEMS 

Desert Sound, Inc. 
of California 

1-800-835-5247 
Factory Authorized Dealer 

TRS-80 Is a R*g. Trademark of Tandy Corp. 

•Call for FREE CATALOG 
and Price Guarantee ^39 
Calif. Res. Call 619-2446883 



POWER HUNGRY? 

Inside your TRS-80 Model 4 

is immense POWER 

fighting to get out. 
SUPERMOD4 frees it! 

YOU CAN COMMAND THE POWER 

If you own a Model 4. and use a Model 3 DOS. 
you can now command a SUPERCOMPUTER. 

SUPERM0D4 BRINGS POWER TO YOUR VIDEO with 80x24 40x24 
64x16 and 32x16 video formats reverse video up 10 24 line scrol 
protect and "note And this s rofar power an video control 
commands ipr-! i tab ' se! reset oci* etc ' get the oowe' 

SUPERM004 BRINGS POWER TO YOUR KEYBOARD t» gow o- 
i" a.d cv "e.c :■ ': - acc/ate »■; '"e ::*-' :' eas . 
P'ocra"""at , e spec a '.-etc" <evs 

SUPERMOW BRINGS POWER TO YOUR PRINTER /. - s '« pr n- 
sc ::•:-■ ,:.::':'"'*"?.:.• ::-;-■<■• ::*£ ■ :•-»"• ";??■: 
»ou can also send jnane'ec graprncs codes to vojr prrtsf 

SUPERMOW BRINGS YOU THEPOWER Of SPEED Js -g •-» •:•/-.• 
CPU Oodi af your software runs MM as fast - But not out of 
control SUPERMOO* maxes sjre thai the reaBime doc* and similar 
opat tt ons wort cceCv 

SUPERMOD4 HAS THE POWER OF INVISIBILITY SU=ERMODi s 
"00 s - software Put » »ou see s tie powe- npt Ml P'ogra^ 
SOPERMOCK „ses NO USER MEMORY! U the po*ers touch not 
one Dvte o' yov memcy 

SUPERM004 HAS THE POWER OF INTELLIGENCE n Knows how to 
do its |OD ii doesn't need any sofiware 0' hardware patches All 
SUPERM0D4 needs is a Mooel 4 running any Mode: 3 DOS It 
AOrtcs wi'h all software that use the normal \:Q drive's 

You control the POWER: select the ones you want. 

and have :herr *ork your way 

SUPERM004 s sc povte^ui only a few of its aotlities have 
Deer "evealed ice To learn more, send for details 

tvnat rs the pnee o> power'' 0"y $49^5 



Also available. RAMDiS* <v NEW0OS ?: M M Mod* si 3 a" 

.se ei"s ~~-z'< as a s-ce^as' :s> r.e Se-: ':• deta s 



rc 



21 Campbell Dnw 
x Hills. New York 1 1 746 
(516) 462-6970 Ex1 8 



wA 



DISKETTES 

*18.50 SS/DD 



¥ 



(10 DI»Vt/Box) 



5 V-" SS/DD $18.50 

5 W DS/DD $23.50 

Ribbon Daacriptfon Price Each 

APPLE DOT MATRIX $4.29 

(Sam* m NEC8023) 

C.ITOH PROWRITER 1550-8510 $4.29 

(Sam* as NEC8023) 

EPSON MX 70/M. FAR 

SERIES RIBBON CARTRIDGE $3.85 

EPSON MX 100 RIBBON 

CARTRIDGE $4.99 

NEC 8023 $4.29 

OKIDATA 80/82/83/92/93 $1.85 

OKIDATA 84/94 $2.99 

Satisfaction Guaranteed Since 1967 

Call (415) 778-2595 

or write: 

Argonaut Distributing 

1104 Buchanan Road #80 

Antioch, CA 94509 

Vtoa/MC/PrapaM — 83.00 shipping 
C.O.D. Orders — 84.90 shipping 



Authorized Distributor 
Information Processing Product* 



Graphics Solutions 

High-Resolution Software and Hardware 



Radio Shock Model 4/4P/M hires 
board owners: GBRSIC 3.0. This enhanced 
version of Graphics Bosk provides on 
equivalent for all of the Radio Shock 
commands as well as adding a number of 
important new ones. The hi-res screen can 
be printed on any of 20 popular printers 
or saved or loaded to disk without leaving 
Bask. The software works wkh TRSDOS, 
IDOS, NCUJDOS80, and DOSPIUS and 
uses 1400 bytes less memory. The disk 
comes with over 40 graphics related 
programs and a detailed manual which 
includes entry addresses for interfacing to 
assembly language. GBRSIC 3.0 is 
required in order to run any of the 
following programs. $49.95. 

The following eight programs run on a 
Model 4/4P/M equipped wkh a Micro- 
lobs or flodio Shock graphics board: 

MM - R sophistkoted full screen graphics 
drawing and editing program. $39.95. 

BIZGRRPH - Create business graphs from 
hand-entered or Viskalc data. $98.00. 

ICT'S UIMTC mUSIC - Rn editor which lets 
you display and print music. $49.95. 



30-PIOT - View three-dimensional data 
from any perspective or angle. $39.95. 

mflTHPlOT - Plot equations of the form 
V=F(X) with auto scaling. $39.95. 

SURFRCC PLOT Plot three-dimensional 
equations of the form Z F(X,Y). $39.95 

BrOftHVTHTn 8 USA - Chart your biorhythm 
or leorn the states and copitols. $24.00 

GfUVVX SOUmOn. Plug-in, clip-on 
board enhances any Model 4/111 to provide 
640 ■ 240 / 512 ■ 192 dot graphics. 
Comes with over 40 programs/files 
including Graphics Basic 3.0 which odds 
over 20 new commands. $199.95. 

80-GRflFIX. Plug-in, clip-on board 
upgrades any Model W/l to provide 128 
user-definable characters. Comes with 
over 20 programs/files. $99.95. 

JOV-fltOUSC. PJows a Radio Shock 
Color Computer joystick and mouse to be 
connected to any Model 4/4P/III. Hard- 
ware provides X, V position values from 
to 255. A built-in speaker produces 
sound from the cassette port. $99.95. 




>A* 



G.l.fl.A. Software program for the Model 
4/4P/M/I which uses the stondord block 
graphics screen to display a window to a 
larger 65536 65536 dot tablet. The 
arrow keys are used to draw two or 
three-dimensional figures. The display can 
be scaled, shifted, or rotated in ony 
dimension. The final picture is printed in 
hires on Rodio Shock, €pson, N€C 8023, 
or Prowriter printers. $98.00. 

Please specify your exact system 
configuration when ordering or requesting 
information. Poyment moy be by check, 
COO, or Visa/MC. Domestk shipping is 
free on pre-paid or COD orders. (Texas 
residents odd 5% soles tax.) __ 464 

Micro-Labs. Inc. 214-235-0915 

902 Pinecrest. Richardson. Texas 75080 



v" See List of Advertisers on Page 176 
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flag set), numeric (C flag set) or 
neither (NZ and NC set). 

Many routines start by examining 
the flags as a first check for correct 
syntax. If the flags were not correctly 
restored in line 420, the normal CMD 
processor would likely report a syntax 
or type mismatch error. 

Program Listing 3 shows a third 
way to add a beep function to Disk 
Basic. The program works by inter- 
rupting the Basic interpreter as it starts 
to parse a command. If it finds your 
special command, the program exe- 
cutes it; otherwise control passes to the 
normal Basic interpreter. 

Basic begins parsing and executing 
each command in ROM at 1D5A hex- 
adecimal (hex) with an RST 10H in- 
struction. From 0010 hex, the pro- 
gram sends control to RAM location 
4003 hex. If you're using Cassette Ba- 
sic, TRSDOS, or NEWDOS80, 4003 
hex contains the instruction JP 
1D78H, which sends control to a rou- 
tine that finds the next character in the 
program, and adjusts HL to point to it 
(LDOS, DOSPLUS, MULTIDOS, 
and the Stringy Floppy system use a 
different jump at 4003 hex to perform 
some special instructions). 

Listing 3 interrupts the normal flow 
of control at 4003 hex. First, starting 
in line 370, it tests the return address 
on the stack to be sure that this RST 10 
hex call came from 1D5A hex. If the 
return address isn't 1D5B hex, the 
program gets out of the way by jump- 
ing to the original address stored at 
4003 hex. 



Basic changes keyboard 

symbols to a form 

completely different 

from their ASCII codes. 



If the address on the top of the stack 
was correct, Listing 3 calls 1D78 hex to 
find the next valid character and 
checks to determine if it's an exclama- 
tion point. If not, the program decre- 
ments the HL register once to point to 
the previous byte and again control 
passes to the original address (lines 
460-500). 

Finally, if the program finds the 
correct return address, and if the next 
input character is an exclamation 
point, the program produces a beep. It 
ends by pointing HL to the next posi- 
tion after the exclamation point and 
then returning to the Basic interpreter. 
You must end the routine with HL 
and the stack set correctly, and with 
the Z flag set (line 700). 

If you want to experiment with this 
final technique, select new command 
names carefully. Unless your program 
carefully checks each name, you must 
make sure that each new command 
starts with a character that could not 
normally appear at the beginning of a 
Basic command. If, for example, you 
chose a command A, you could never 
use a variable that started with the 
letter A without generating a syntax 
error. 



Also, Basic changes keyboard sym- 
bols (such as the arithmetic operators) 
to a tokenized form completely dif- 
ferent from their ASCII codes. If you 
use one of those symbols as your com- 
mand name, your program will have 
to check for the tokenized form. 

Coming Up 

Next month, I'll discuss another 
technique for adding new commands 
to Basic, and start to develop a pro- 
gram that lets you add many new Ba- 
sic commands in a single program. 

Remember that if you write to me 
and want a reply, you must enclose a 
stamped, self-addressed envelope. I 
am happy to try to answer your ques- 
tions about Assembly language or use 
of your Model I, III, or 4. However, 
because of the amount of mail I re- 
ceive, I cannot respond if you don't 
include a stamped envelope. In any 
case, I always welcome your com- 
ments, questions, and suggestions. ■ 



Readers who subscribe to Compu- 
Serve can ask questions or take part in 
discussions on topics covered by "The 
Next Step." Go PCS- 117 to the 
Writers' and Editors' Special Interest 
Group (WESIG) and leave your ques- 
tions or comments addressed to Har- 
din Brothers. Feel free to join in con- 
versations started by others. 

You can also write to Hardin at 280 
N. Campus Ave., Upland, CA 91786. 
Enclose a stamped, self-addressed 
envelope if you want a reply. 



TRS 80 Computers 



NEW Computers, Accessories & Software 

26-5103 Model 2000 $2200 

26-1069 Model 4 $970 

26-4005 Model 12 $2800 

26-3802 Mod.l00-24K 



Manufacture Warranty 



26-5111 Monitor 

26-1158 Printer 

26-1256 Printer 

26-3801 Mod. 100 8K 



$180 
$1250 
$1600 



We will match or beat anyones prices: Please Call 

Visa — MasterCard — American Express 
Cashier's Check — Money Order — C.O.D. with 25% Advance 



TALLEY COMMUNICATIONS CO. 

P.O. Box 193 • 121 N. State St. 

Decatur, Texas 76234 • 817-627-5585 • 817-627-1017 p ast De|j very 

Call for other computer, telephone and accessory prices! Computer Specialist available for assistance. 



Business Telephone Systems— Discount Prices- 
Install your own. Completely modular. 
Call for Prices 

References Available 



^347 
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2000 PLUS / by John B. Harrell III 



A Rematch Between Two 
Data Base Systems 



I'll devote part of this column to 
clearing up a problem of transfer- 
ring graphics-based software between 
the Model I/III and the Tandy 2000. 
I'D also revisit an earlier topic: my com- 
parison of Profile III + to dBase II. 

Customized Graphics 

Now that you have a tool for con- 
verting Model I/III Basic software to 
run on the Tandy 2000 (see October 
1984, p. 178), you may have encount- 
ered another problem: Some pro- 
grams won't convert because they use 
Model I/III-specific graphics. Paul 
Opitz's CHAREDIT program in the 
final issue of the TRS-80 Microcom- 
puter News (volume 6, issue 6) solves 
the problem by letting you customize 
the Model 2000 character set. 

While using Opitz's program to de- 
sign a complete Russian alphabet, I 
realized that I could also replicate the 
Model I/III graphics character set on 
the Model 2000. The set I created re- 
places Model 2000 characters 128-191 
with the appropriate Model I/III 
graphics characters. That allowed me 
to convert many of my Basic pro- 
grams without any reprogramming. 
Unfortunately, this method doesn't 
work with programs that depend on 
the Set, Reset, and Point commands 
to display graphics. 

The Program Listing (p. 149) sup- 
plies Basic subroutines that duplicate 
the Model I/III's Set, Reset, and 
Point functions on the 2000. With 
these subroutines saved to disk in 
ASCII format, it's a relatively simple 
(albeit tedious) task to change Model 
I/III graphics commands to linkages 
for these subroutines. I recommend 
editing the ASCII text of the program 
with a capable word processor. 

The GRINIT routine is the heart of 
the program. It loads the Model I/III 
graphics character set modified by 
CHAREDIT and sets up the byte 
masks for later use. The next three 
routines are all very similar; they share 




much of the same code. I chose not to 
put this code in one more subroutine 
because another function call would 
have slowed the program down too 
much. To increase speed, remove all 
comments and any extraneous blanks, 
combining as many statements on one 
line as possible. Table 1 lists the pro- 
gram's variables. The Figure uses a 
typical character cell divided into 
graphics pixels to illustrate the vari- 
ables and their use. 

If you'd like the character set editor 
(CHAREDIT and FONTINIT), the 
character sets (Russian and Model 
I/III graphics), and/or the graphics 
routines in the Listing, send a disk and 
a self-addressed mailer to me at 
1519-A Carswell Circle, Boiling Air 
Force Base, Washington, DC 20336. 
Make sure the mailer has correct 
return postage. For the character set 
editor, specify the type of display 
you're using (monochrome/color, 
graphics/no graphics). 

Battle of the 

Data Bases — Round Two 

In my first column (August 1984, p. 
177), I illustrated dBase IPs versatility 



by comparing its major features to 
those of Profile III + . I must admit 
that this was unfair; comparing pro- 
grams that run under different operat- 
ing environments is never really fair. 
However, the Small Computer Co. 
called my attention to a very powerful 
extension to the Profile III + system 
called filePro-16 (see Table 2). 
FilePro-16 is available for the Model 
2000 and is a single-user, feature-for- 
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Figure. Screen coordinate algorithm. 
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TRS-80 COMPUTERS 
100% PURE RADIO SHACK 



CALL TOLL-FREE 1-800-248-3823 




TANDY 2000 



TANDY 1200 



26-5103 Tandy 2000 Two DisK 

26-5104 Tandy 20001 Disk and 10 Meg HD 

26-5111 Monochrome Monitor 

26-51 12 Color Monitor 

26- 51 40 H> Res Graphic Monochrome Board 

26-5141 Hi Res Color Graphics Chip 

26-5160 Internal 128KKU 

26-5311 Microsoft Multiplan 

26-5352 dBase II (Data Base) 

26-5330 Multmate 



LIST 


OUR 




PRICE 


PRICE 




$2750 00 


$2175 00 


25 3000 


$4250 00 


$34 75 00 


25-3010 


$ 249.00 


$ 175 00 


26-3212 


$ 799 00 


$ 549 00 


25 3040 


S 499 00 


$ 349 00 


25-3043 


$ 199.00 


$ 14500 


25-3044 


S 299 00 


$ 250 00 


25-3061 


$ 195 00 


$ 166 00 


25-3130 


$ 595.00 


$ 420 00 


25-3170 


$ 249 00 


$ 205 00 


25-3160 



Tandy 1200 1 Disk and 10 Meg HD 

VM 3 Green Monitor 

CM-2 Color Monitor 

Monochrome Display Adaptor 

Graphics Display Adapter 

Graphics Master 

Captain Multifunction Board 

MSDOS/BASIC 

Wordstar Professional 

Framework 



MODEL 4 COMPUTERS 



BUSINESS COMPUTERS 









LIST 




OUR 










PRICE 




PRICE 




Xb 


1069 Modei4 64K2DriveCompuler 


$ 


1 299 00 


S 


950 00 


26-4005 


26 


1080 Model 4P64K Portable Computer 


$ 


1 299 00 


s 


950 00 


26-6004 


2b 


1 12? 64K Memory Expansion 


S 


79 95 


s 


75 00 


26-6005 


26 


1 1 27 Model 4 Internal Drve 1 


$ 


499 95 


s 


41500 


26-6006 


26 


1123 Model 3to Model 4 Upgrade Kit 


$ 


799 00 


s 


675 00 


26-6017 


26 


1084 Mode 1 4P Modem Board 


s 


149 00 


s 


12/ 00 


26-4155 


2b 


1595 Super Scnpsit Mode' 4 


$ 


199 95 


s 


169 00 


26 4168 


26 


1635 Profile 4 Model 4 


s 


249 95 


s 


212 00 


26-4171 


26 


2216 CP/M Plus Model 4 


$ 


149 00 


s 


127 00 


26-4157 



Model 12 80K 2 Drive Computer 
Model 16B256K 1 Drive Computer 
Model 16B256K 2 Drive Computer 
Model 16B 256K 15Meg HD 
Card Cage For Model 12 
1 5 Meg Hard Drive Primary 
30 Meg Hard Drive P'imary 
35 Meg Hard Drive P'imary 
Installation Kit for Primary HD 



LIST 
PRICE 

$3999 00 
$4999 00 
$3999 00 
$5999.00 
$ 199 00 
$2495 00 
S3395 00 
$3595 00 
$ 495 00 



MODEL 100 COMPUTERS 



COLOR COMPUTERS 



26-3801 8K Model 100 Computer 

26-3802 24K Model 100 Computer 

26-3804 AC Adaptor 

26-3805 Accoustic Coupler 

26-3816 8K RAM Memory Expansion Chip 

26 1409 Printer Cable 

26-1410 Modem Cable 

26-3809 Briefcase 

26 1 1 83 Bar Code Reader 

26-3806 Disk Video Interface 



LIST 


OUR 


PRICE 


PRICE 


$ 399 00 


5 339 CO 


$ 599 00 


$ 509 00 


$ 5 95 


$ 5 00 


$ 39 95 


S 34 00 


$ 119 95 


$ 95 00 


$ 1495 


$ 12 70 


$ 19 95 


$ 17 00 


$ 49 95 


$ 42 50 


$ 99 95 


$ 85 00 


$ 799 00 


$ 660 00 



26 - 3 1 2 7 64K Extended Color Computer 2 
26 31 36 1 6K Extended Color Computer 2 
26 3029 Disk Drive O for Color Computer 
26- 1 161 Disk Drive 1 . 2, 3. for Color Computer 
26-3018 Extended Basic Kit 
26-3030 OS -9 With Editor Assembler 
VIP Writer 
VIP Calc 
Telewriter Disk 
Botek Interlace 



LIST 


OUR 


PRICE 


PRICE 


$ 199 95 


$ 169.00 


$ 139 95 


$ 12000 


$ 349 95 


S 295 00 


uter $ 279 95 


$ 230 00 


$ 39 95 


$ 3400 


$ 69 95 


$ 59.50 




$ 59 00 




$ 49 00 




$ 59 00 




$ 57.00 



RADIO SHACK PRINTERS 



OTHER MAJOR BRANDS 



26-1276 DMP-105 Dol Matrix Printer 
26-1275 TRP 100 Portable Thermal Printer 
26 1271 DMP-1 10 50/25cps Printer 
26-1255 DMP 120 Printer 120cps Matrix 
26-1257 DWP-210 14cps Daisy Wheel 
26-1277 DMP-430 24 Wire Malrix Printer 
26-1270 DWP 510 43cps Daisy Wheel 
26-1274 DMP-2100P24WireDOTMatnx 



LIST 
PRICE 

$ 199 00 
$ 299 00 
$ 399 00 
$ 499.00 
$ 599.00 
$ 899 00 
$1495.00 
$199500 



OUR 
PRICE 

$ 1 69 00 
$ 230.00 
$ 299 00 
$ 385 00 
$ 485 00 
$ 745 00 
$1225 00 
$1650 00 



OUR 

COMPUTERS price 

Sanyo $ Call 

Columbia $ Call 

Epson $ Call 

Franklin $ Call 

Software $ Call 





OUR 


PRINTERS 


PRICE 


Epson . . 


$ Call 


C Itoh 


. $ Call 


Okidata 


. $ Call 


Star (Gemini) 


$ Call 


Hayes Modems . 


$ Call 



FOR ORDERS CALL 1-800-248 3823 



FOR INFORMATION CALL 1-517-625 4161 



. MtMnfM Of »K«df«*n —u 



■ ihiunity MiAl 



ti • "'Bn i " y eh«r#» » 



annex] 
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See List ol Advertisers on Page 145 
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feature adaptation of the multiuser 
Profile- 16 system currently available 
for the Model 16. 

FilePro-16 contains an extensive 
reference manual, program disks, an 
installation manual, and a start-up 
manual with a beginner's and an ad- 
vanced tutorial. The system is huge. 
Hard disk Model 2000 users will gen- 
erally have no problem with the pro- 
gram's size, but floppy users will be 
dismayed at having to use separate 
creation and runtime disks, as with 
Profile III + . Remember, Model 2000 
disks hold four times as much as Mod- 
el III disks, but filePro-16's code still 
doesn't fit on the two program 
disks — the special character print 
codes are on another disk. 

FilePro- 16 is a superior product. 
The limitations of Profile III+ have 
been corrected. For example, you can 
add data and lengthen or shorten any 
data base file easily. It automatically 
updates indexes once you define them. 
You can also build very powerful 
menus that let you structure applica- 
tions for easy use by someone unfa- 
miliar with the filePro-16 commands. 

FilePro-16's added features are very 
capable: the ability to spread files over 
several disks, flexible and numerous 
input/output format features, and ex- 
cellent precision in math calculations. 
FilePro-16 allows over 16 million 
records per file, and 4,608 characters 
per record. 

With all of these exceptional fea- 
tures in mind, I'll reconsider my origi- 
nal comparison of data base manage- 
ment systems, this time pitting dBASE 
II against filePro-16. In each of the ar- 
eas mentioned above, filePro-16 ex- 
ceeds dBase IPs specifications or 
provides an easier way to perform an 
operation. Why, then, is there so 
much demand for dBase II? First, it's 
essentially universal, providing identi- 
cal capabilities to any computer that 
runs CP/M or MS-DOS. Don't dis- 
count this feature; it's a most impor- 
tant consideration when you have ac- 
cess to multiple computers. 

Probably more important, dBase 
II, while providing all the data base 
management functions most people 
need, is really more of a programming 
environment than a DBMS. This 
product's great success derives from its 
superb flexibility in developing applica- 
tions. An entire software sub-industry 
is based on dBase programming. 



Variable Description 

ZX Specifies the horizontal location of the graphics pixel (0-159) 

ZY Specifies the vertical location of the graphics pixel (0-71) 

CX Character location within the selected row containing the pixel (1-80). This is the integer 
quotient of ZX/2. 

CY Character location within the selected column containing the pixel (0-24). This is the in- 
teger quotient of ZY/3. 

CL Selects the graphics column by examining the remainder from the calculation of CX. 

RW Selects the graphics row number by examining the remainder from the calculation of 
CY. 

BT Specifies the bit number within the byte for the action to be performed. This value 

ranges from to 5 and is used to select the appropriate mask from either the SM0 or 
RMO arrays. 

CH Contains the value of the character located in the screen memory at the location 
specified by CX and CY. 

Table 1. Variables used in the Program Listing. 



Since these two systems cost the 
same, I must recommend dBase II as 
the DBMS system of choice because of 
its greater wealth of support and por- 
tability of data and applications. 
However, if you also use Profile- 16 on 
the Model 16 computer, you may find 
filePro more appropriate. These two 
products are virtually identical and 
provide unparalleled compatibility. 
Were filePro-16 less expensive, I'd 
heartily recommend it for use on the 
Model 2000. 

Making dBASE II Better 

While I'm on the subject of dBase, I 
must mention two superior products 
that I've encountered: DB/RA and 
dBRx, powerful extensions that over- 
come some of dBase IPs data han- 
dling limitations. Although designed 
specifically for the IBM PC, both run 
fine on the Tandy 2000. 

DB/RA adds the power of one-, 
two-, or three-dimensional arrays to 
dBase-II. You can use these arrays 
with character, logical, or numeric da- 
ta just as you'd use any other memory 
variable. In fact, this software extends 
the number of memory variables 
available from 64 to over 65,000. A 
simple statement beginning with the 
key word Call performs these func- 
tions. DB/RA incorporates its own 
syntax analyzer so these special call 
statements resemble familiar dBase 
commands. 

DBRx is a math and string exten- 
sion package making several transcen- 
dental functions (sine, cosine, loga- 
rithmic, etc.) available for use in data 
computations. This means you can do 
most complex calculations within the 



dBase II Data Base Manager 

Tandy/Radio Shack 

One Tandy Center 

Fort Worth, TX 76102 

26-5352 

$495 

filePro 16 Data Base Management System 

The Small Computer Company, Inc. 

230 W. 41st Ave., 12th Floor 

New York, NY 10036 

Available through Radio Shack Express 

Order system 

$495 

dBRx— The dBase II Math/Stat Program 

dB/RA— The dBase II Array Program 

Gryphon Microproducts 

P. O. Box 6543 

Silver Spring, MD 20906 

dBRx; $150 

dB/RA; $200 

Table 2. Model 2000 product index. 



DBMS. The package also supplies 
three string functions (Pack, BTRIM, 
and NOSPACE) that enhance the ap- 
pearance of text data when you 
display it or print it out. Pack com- 
presses multiple blanks into one, 
BTRIM trims blanks from the left side 
of a character string (as opposed to the 
normal Trim function for removing 
blanks from the right side), and 
NOSPACE removes all spaces from 
the text string. ■ 

You can reach John B. Harrell III 
c/o this column, 80 Micro, 80 Pine 
St., Peterborough, NH 03458, or via 
CompuServe at 73016,1326. 
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Pi o p v i n Listing. Graphics conversion routines. 

A********************************************************************** 
GRINIT - set up values for the Model-III graphics routines 

No parameters are expected and the values returned are in the 
arrays SM{) and RM() used by the graphics routines. 

GRINIT should only be called once per program execution or an 
error will occur when attempting to cediaension the arrays. 

It aay also be necessary to reposition your DATA statements 
to prevent conflict with GRINIT. 



8800 

8810 
8820 
8B38 
8840 
8850 
8860 
8870 
8880 
8890 
890* 
8910 
B920 



9000 DIM SH(S) ,RK(5) 

9010 RESTORE 90(0 

9020 FOR 1-0 TO 5 

9030 READ SM(I),RM(I) 

9040 NEXT I 

9045 BLOAD'mdiiiacf 

9050 RETURN 

9060 DATA 1,254 

9070 DATA 2,253 

90 80 DATA 4,251 

9090 DATA 8,247 

9100 DATA 16,23 9 

9110 DATA 32,223 



'set up proper location for DATA read 

' read the data masks 

'load the graphics character set 



*****•*•*****# 



9900 ■ **«•«*»» 

9910 * 

9920 * 

9930 ' 

9940 ' 

9950 ' 

9960 ' 

9970 ' This subroutine requires initialization by calling GRINIT 

9980 ' 

9990 ' *********************************************************************** 



SET a graphics pixel using Kodel-III graphics 

call by setting ZX and ZY to the location of the pixel 

and execute using a GOSUB 

ZX must be in the range of to 159 

ZY must be in the range of to 71 



10000 CX - INT(2X/2) + It CL = ZX AND 1 

10010 CY = IWTUY/3) +l«RW=ZY-3* <CY-1) 

10020 BT = HH + RW + CL 

byte 

10030 CH - SCREEN (CY,CX) 

10040 IF CH < 128 OR CH > 191 THEN CH - 120 

10050 CH = CH OR SH(BT) 

pixel 

10060 LOCATE CY,CXi PRINT CHR$(CH)| 

10070 RETURN 



' calculate col (ex) and gr col 
1 calculate row and gr row 
1 bit position within the gr 

* get char at current screen pos 

' if not graphics — make blank 
' set proper bit to turn on 

1 locate and replace screen char 



19901 
19910 
19920 

19930 
19940 
19950 
19968 
19970 
19980 
19990 



»*«****«*•**••*•••••***•••••*••*••**•****••**••**••••••••••*•* 

RESET a graphics pixel using Model-III graphics 

call by setting ZX and ZY to the location of the pixel 

and execute using a GOSUB 

ZX must be in the range of to 159 

ZY must be in the range of to 71 

This subroutine requires initialization by calling GRINIT 

*•****••••••*••*••••*•***••*••*********•**•••••••*•*•****•***•* 



ZX AND 1 

ZY - 3 * (CY-1) 



20000 CX = INT(ZX/2) + lx CL 

20010 CY - INT(ZY/3) + 1 : RW 

20020 BT = RW + RW + CL 

byte 

20030 CH = SCREEN (CY,CX) 



20040 IF CH < 128 OR CH > 191 THEN CH « 128 

20050 CH ■ CH AND RH(BT) 

pixel 

20060 LOCATE CY,CX: PRINT CHR$(CH) j 

20070 RETURN 



' calculate col (ex) and gr col 

1 calculate row and gr row 

' bit position within the gr 

1 get char at current screen pos 

1 if not graphics — make blank 

1 set proper bit to turn on 

' locate and replace screen char 



29900 

29910 
29920 

29939 
29940 
29950 
29960 
29970 
29980 
29981 
29982 
29983 
29990 



TEST a graphics pixel using Model-Ill graphics 

call by setting ZX and ZY to the location of the pixel 

and execute using a GOSUB 

ZX must be in the range of to 159 

ZY must be in the range of to 71 

This subroutine requires initialisation by calling GRINIT 
The function return value is returned in variable iZt 
It - -1 (TRUE) — the pixel is currently set 
zz = 8 (FALSE) — the pixel is currently reset 



»***••*****•••••••*****• 



»*««•************«*******«********«< 



30000 CX - INT(ZX/2) + li CL » ZX AND 1 

30010 CY = INT(ZY/3) +liRW=ZY-3* (CY-1) 

30020 BT = RW + RW ♦ CL 

byte 

30030 CH » SCREEN (CY,CX) 

30040 IF CH < 120 OR CH > 191 THEN CH - 128 

30050 CH = CH AND SH(BT) 

pixel 

30060 ZZ > (CH <> 0) 

30070 RETURN 



calculate col (ex) and gr col 
calculate row and gr row 
bit position within the gr 

get char at current screen pos 

if not graphics — make blank 
set proper bit to turn on 

check if bit is set and return 



End 



o o 

DANGER: 

LOOSE 
PICO NUTS 



It's catching. You, too, will 
go nuts over briefcase-size com- 
puters. 

These lap-sized "picocom- 
puters" are the indispensible new 
tool you'll need to get ahead. 

But which pico should you buy? 

Read PICO— The Briefcase 
Computer Report , and you'll learn 
which pico is best for you: your 
word processing, your spread 
sheets, your data bases. The best 
pico for your successful business 
management. 

You need a picocomputer right 
now. Read PICO, and you'll 
learn which pico is your best 
investment. 




To subscribe: 

Call 1-800-227-1053 

Or mail in this completed form to: 

PICO 

ISO South Main St. 

WoodridgeNJ 07075 „3«> 

pDEnter my subscription to PICO 
—The Briefcase Computer Re- 
port, 12 monthly issues for 
$19.97. 

D Send me a PICO Product Evalu- 
ation Kit so I can help evaluate 
pico products. 

□Check enclosed □Bill me 

□MC OVISA DAE 751132 

Exp. date, 



Card no.. 



Name. 



Address. 



City. 



State. 



.ZIP. 



See List ot Advt/tlsors on Page 145 
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SAVE A BUNDLE 



WITH ONE OF 
OUR BUNDLES 



We have put together special bundles of software just in time to save you a bundle of money. Didn't you ever wonder why CP/M was so 
popular? The reason is the software availability. All programs (except EP) are for the Model 4/4P and have been optimized to install and run 
without hassle. For example, we have memory-mapped WordStar* and it runs circles around the standard version available elsewhere. We 
also added printer drivers for the Daisywheel II and the DMP-21 00. Our CP/M® 2.2 is the best around. Read the reviews. You know the 
programs. You know the prices. This is the years' best value. You owe it to yourself to let these CP/M® programs and thousands of others 
(many in the public domain) start serving your needs. 




Save A Bundle on these books and disks 

Take advantage of our volume discounts. Buy any three items from this list and deduct $5 from 
your total order. Buy tour, deduct $10. Buy five.deduct $15 Buy six. deduct $20 and so on 
Buy a bunch, save a bundle. Please add $1 each for shipping. Add $5 to orders under $50 for 
handling. 




'1984 by Monle;uma Men WordStar" SpetlStat " Stailndex" MaMMerge' DataSlar " RepodSlai* and CalcSlai " belong to 
MicroPro* International Corporation CP'M* belongs to Digital Research Inc rJBASE II' belongs to Asnton late. Inc All the Pencils' 
belong to Michael Shrayer Turbo Pascal* belongs to Borland International 




TRS-80 Disk A Other Mysteries. The "How to" book of data 
recovery for the TRS-80 Model I disk operating system 1 28 pages. Retail 
Retail $22.50 Now $18 

Microsoft BASIC Decoded A Other Mysteries. The com- 
plete guide to Level II and BASIC. 312pages 
Retail $29.95 Now $24 

The Custom TRS-80 A Other Mysteries. The complete guide 

to customizing TRS-80 Hardware and Software 336 pages 

Retail $29 95 Now $24 

BASIC Faster A Better & Other Mysteries. The complete 

guide to BASIC programming tricks and techniques. 290 pages 

Retail $29.95 Now $24 

BASIC Faster A Better Library Disk. Contains 121 functions. 

subroutines and user routines Search merge, compare and listing routines 

plus array handlers. BASIC overlays and video drivers. 

Retail $19.95 Now $16 

BASIC Faster & Better Demonstration Disk. Contains 32 
demos of the Library Disk contents above. 
Retail $1995 Now $24 

BASIC Disk I/O Faster A Better A Other Mysteries. 

Programming tips and techniques to store/retrieve data from disk. 432 
pages. Retail $29.95 Now $24 

BASIC Disk I/O Faster A Better Demonstration Disk. All 
of the ma)or demo programs and library of disk I/O subroutines in 25 BASIC 
programs. Random, Indexed Sequential and TREESAM hie handlers 
included Retail $29.95 Now $24 

Machine Language Disk I/O A Other Mysteries. A guide to 
machine language disk I/O for the TRS-80 288 pages 
Retail $29 95 Now $24 

TRSDOS 2. 3 Decoded A Other Mysteries. Detailed explana- 
tion of the Model I disk operating system 298 pages 
Retail $2995 Now $24 

How To Do It On The TRS-80. A complete applications guide to 
the TRS-80 Model I. II. Ill, 100, and Color Computer 352 pages. 
Retail $29 95 Now $24 

The Custom Apple A Other Mysteries. Who cares? 
Retail $29 95 Now $1 9 

Due to Ihe nature ol this business there are NO REFUNDS on software We accept 
American Fxpress. MasterCard. Visa and COD Your card is not charged until we ship your order 
Personal and company checks are accepted without delay ical lor details) Delivered prces are 
tor the lower rightmost 48 States only Prices and specihcatDns sublet lo change without notice 
II you don 1 understand any of this, msl give is a call and we Mil take the time to explain il until 
you do First-timers are always welcome here 

ORDER NOW . . . TOLL FREE 



MONTEZUMA 800-527-0347 

NIICBO "" = "■* " ~ ®® m 800-442 ' 1 3 1 o 



214-339-5104 **■ 

Redbird Airport. Hangar #8 

P0 Box 320?/ 

Dallas. Texas 75232 "WE KEEP YOU RUNNING" 



The To* Free knws are tor order s only 
Specifications subatct to change without nonce 
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MONTEZUMA 
MICRO 



P.O. Box 2169 

Camp Verde (Lizard Flats) 

Arizona 86322 ^"6 

WE KEEP YOU RUNNING 



COMPUTERS 
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CABLES 
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^'^ Nferar '0C '■***>* 6'S 

NEW TANDY -IMUTT COMPUTE* Tha new com- 
out e. Irom R/S is an IBM don,, and will run IBM software 
Our pre* 1a complete with green monitor color vtdeo 
Doerd. 2S6* Ram a 360K iioppy and a 1 Mbyte internal 
HO 5,2695 



MODEMS 



« '"* *t.t>-s •■ Coup*, v-ooer-. 

*'■-*, DC Mooef IB 

6 i "6 DC 22 1 2 H»y '-.:-*: Muoam 
Atc-v* Mar* i Modem 300 Baud —i" 
Avc-yy X)0 1200 BauO Modem *-m ' 
M* T ts S^anToOe'i W0 Baud 

M»r« Vr*nmnOtn 1 ?0C B*uO 



PERIPHERALS 

lanaion mie-lac* •<* me Mode" 1 ^omoa 

Genu*-* RS Per-'ynose Ana Caere Ovtci 
Modal 4P Carry-rig Case 

Mndai I 3 4 r.'-ie Hard D-4* SacOndar. 

Moon 3 ibUB "ard On. m»- «« 
Mrxwi < I5M8 Mard Ckw "5: "i 
Modal -0C Bar Coda Raada- 
raCW* CoKw C-omoutai Koala Pad 
NtW MOUM KX MOOT 2000 

Nf wi Senai 10 P»ai» Convana- 

CCFt ai ca»e«a rape flacoroar 

MEW1 CCFI-A2 Casaarta Tarja Flacordar 

AnaGlara Panra Modal 2 12 16 

Ca»ai Aaycovei lor Mode 3 4 

Mot* 130 Mooar. CaM 

A u inmai« Powe S'-OtS^qa Pioracror 

NCi-Automatic Power StrO'F«tar 

Arvn Gtare Pane Modra i 3 4 

Color Cpmpytar 0e*i«e RS23? k- 1 

Color Comrxaar Carnwuj Ca«a 

Color Computer Joythchs Per Pe» 

Color Computer Drau>a Joy»oci". earn 

Coc Computa' !•? Oak 1"'..' I 2 or 3 

Cowr Computer Muii^Paii iniarraca 

Coior Computer moum 

Drj* Or^e lor me Color Computer 

PC I Caevetle interlace 

PC I Carryng, dim 

PC 2 Carryng Cete 



26 ij»5 
?6- ' 1 11 
26 1 1 33 
26 "34 
26 ll«3 
?6 1H«. 
2»-ll»? 
26 1196 
26 1206 
?6 i?OB 
?6 i -126 
26 1342 
26 1410 
76 1429 
26 nil 
2« 145' 
26 2226 
26 300' 
26 3000 
26M'2 
26 3023 
26-3024 
26-3025 
26-3029 
26-3503 
26- 3506 
26-360I 
263612 
26 3«i5 
26-3«'6 
26-365' 
26 3653 
26 3654 
26-3604 

26- 3609 



PC 7 6K PAW Module 

PC 4 Caaaerta miertace 
PC 4 'R Ram Mrxxae 
PC 4 Canyeig Caaa 
Modal 1 00 AC Adaprar 
MoOBt 100 AcOuStK COupWr 

Modal 100 Carrymg Case 
Model 12;I»B Intemal ISMO Hard CM* «« 
Modal . l.J. i.' 't 'Am Pnmary Hard CM* 
<SMb Seconoarv Orw 



I 2.12.16 



264155 



FURNITURE 



i Des* 



26 1 30S Modal 1 < 

26-1306 Unrvw** P-«rt>. %tmno 

26-132*1 Corrtpu** TatM 

26-1325 Plartom- lor 26 1324 

26 4303 0»»w«« SyMam D»»k 

26-4305 Oatuaa Pi^w Stand 

26-4306 Ttrmtrm Stand 

26 430' Pr»me< Stand 

26 5H5 Moo* 2000 Peomei 

76-51 16 Modv 2000 Floor Stand 

'< 055i Ooou Ra» Siano 



PRINTERS & ACCESSORIES 



26 1190 
26 H92 
26 1196 
26 1250 
26 1252 
26-1254 
26- 1255 
26-125' 
26-1261 
26-126' 
26-I2M 
26 1269 
26 12'0 
26-lJ'l 
26-!2'4 
26 12'5 
26-l2'6 
26-12" 
26 1440 
26-1441 
26-1443 
26-144' 
26 1446 
26-1466 
26-1459 
26-1401 
26-1406 
26-1409 
26-4401 
26 1490 
26-1491 



26-1496 
26 1496 

2*I49» 
26-3605 
263591 
26-3605 

26-3652 



Pfconer 

GCP US Color GraOTMC-i PrrAtar 

GT 116 Grapraci Pad 

DWP4I0 Der e iaheta Pnntar 

DMP-500 220cpf Preitar 

DMP-200 l20ctM Pnmer 

0MP-120 I20cp> Dual Mooe Pnnier 

DWP210 Oareywnaei Pnmar 

TP-IO Tharmal Matm Pnrltar 

OMP-420 lAOcpt tnpie Mode Pnmer 

CGP 220 Color m* Jet Printer 

PTC*4 64K Pnntar Corarrjaer (Butter} 

MlwTDWP-510 Darsywneei pnntar 

OMP-llO 50ept Tnpta Mode Pnnter 

OMP2100P i60cpt Ouai-Moda Pnrnar 

Nfan TRP 100 Pnntar 

ncwi omp- 106 New Cneeep Pwiter 

ncwi DMPU30 Maw raoi So Cnaeep Pan 

Save Bm snaet Feeder lor Dyap.JlOD 

BHJeacmriat rractor lor OWP-2100 

tVCa-ecmnal Tractor In DWP-210 

tV-Oeacaonei Tiactor lor Oerarwneat a 

Smgta 6m street Feeder lor Oer ay wheel i 

Acousac Orar 

&.D-act.>-ai Tractor lor DWP.410 

Model l^V4/4P Pnnter Caere 

RS-232C Casta 

Modal 100 Prvear Capie 

Model 2/12/I6/2OO0 Pnmer Cab* 

10 RS-232C Catae 

25 RS-232C Caaa 

50 RS-232C CaDla 

100 RS-232C Cataa 

RS-232C Caeta Eitenoer 

RS-232C nj Mooam Aoapwr 

Sw 302 Paralai Pnnter Sweof 

Sw 303 RS-232C Selector Swacn 

PC I Paeear 

PC 3 Pnmer 

PC 2 Pnmer 

PC 4 Pnmer 



SUPPLIES 



?* SSDO D-sk#fw» Pec* o> 10 ' **»i Guarantee 
2$ DSOO Otsaettes Pack ot 10 i >*r Guafanitm 
SSDO Onxenes Pach oi 10 i re* GuwemfM 
DSOO D^fcetie* Pao o* "0 ' vear Cx^antee 
i^i rkp-K>ri Hotda 75 Onht> 

ffcoson Hotds 50 D<*»»i 
5 in T'acior Pape* 20JD 2900 Sneen 
. .11 Tracior Papa' 20H? 2900 Sneen 

ft (« B Haad CU-ar iog f.n 

RIBBONS 



MONTEZUMA'S REVENGE 

GREEN or AMBER MONITORS 

MoOGmtc your tired o*d MoOe* i wifli a »nap(>y n»»w 
12 heO/i-re*o»ution v<)ex> monMcx with yOW Cl^OC* O' 

a Ami- Glare slow decay Q***^ or medajfr, o«caY 
ELi'op--'.in Arrcer >-fh>»ri Mao> *iirr, LftM/SlroniKjrn 
-rvpregnate-3 trosted glass GUESS WHATlf Th« CRT 
iron, rtus monito' atso Ms tne Moo* 2 3 *nd 4 and 
i% onghte* man truj rhe mo<e eKpens*v« LangleY* 
Si da* re^ptacemoni CRT j.jsi tahe tne tube out of 
me ne*. rrionrtor and replace your eirstmg CRT Then 
m^id'i your c*d B&W CRT into tne new n-M-miToi and 
end up wifh i mpnrtor you can K««p o* Se* VVhy spend 

an t^at money ic iu»i ■ "tw tuoe Gua«*ante«d to* a 
tut year Mooei ' caote »vaiiat»e on requesi at no 
charge 



MONTE i SPECIAL PRICE 



.$79 



SOFTWARE 



Mtap ceraj it tn Mcmaiu 



I n, , 



Oi 



XFW' Hard Do* Driver 

26 0310 TRSOOS 2 5 For Tne Model i 

26-0312 TRSOOS i J For Tne Modal 3 

26431] TRSOOS 6 . 'or trie Modal 4 

26-031 5 TRSOOS 6 2 maty On* 

26 0316 TRSOOS 6 2 Dn* Doc Rat Card 

260413 kecWDa* Dnve Analyzer wn, pay i 

26-iiO' Model i-3 Stoopa* 

26-1610 Model 1/3 Trandai 

26-1611 rarwt Modal 3 Home Accountant 

26 1612 Mooai 4 Tergat PtannerCaa: 

26 1613 NCWtModat tr3 Ca» Spectacuujtor 

76-1514 NIWIMooei J Porttoto Manager 



Moder 3 



26-151 
2*1 



■ 8 pre tee i 



lor Moda< 4 
Model 4 
Modal 4 veuCalc 

Moder 3 vraCaK Buaneat Forecast 
MIWI Modal J,4 Formarior 
Mooat 4 Munaaan 

Apanwiani Managamanr 



26-1520 

261521 

26-162' 

26-1530 

26 1536 

26 1539 KTWI Modal i: 

26-1540 Model 3/4 General Ledger 

26-l54t Modal 3/4 Account* Racevaote 

26 1542 Model 3/4 Aocounti Payaora 

.'6 i-:.-i Mod* 3,4 Pawoi 

26-1544 NfWI Model 3>4 mvoce Wnler 

26 1545 NCWt Modal 3/4 inventory Control 

26-1564 Modal 1/3 Aocounn Payable 

26-1556 Model i/3 euemmi Maang l.si 

26 1559 Modal 1/3 Manutacturmg Inventory Control 

26 15*0 F.iad Aieeu 

26-1562 Modal 1/3 Prone 

26-1563 Model 1/3 SC'PS'T 

26-1564 Model t/3 Maaaram 

26 1565 Modal 1/3 Mcroele 

26-1568 Mooat ■/] Medcai Ottioa Syateme 

26-1569 Model 3 vevCaa: Ereienceo varawn 

261577 Modal 1/3 Surveyetg 

261579 Modal 1/3 Real Cetata 

2e-iJ60 Model i/3 Prcaact Manager 

26-I561 Mooat 1/3 Pereormai Manager 

26 <562 Model 1/3 Tene Manager 

26-1664 Mod* ] Cnaoiwrnar 60 

26, IMS Mod* 3 6u«n*» CneOwnear 

26-1566 Model 1/3 voeotea Plus 

261569 Modal ] MrCRO/Counar 

26-I560 Model 1/3 SuparSCntPSlT 

26-1591 Modal t/3 Serpen Dacaonary 

261592 Model 3 ProeM Pvn 

261093 Model 3 Pnotea Piua LOOS/HO varraon 

26-1594 Model 3 Oee»roo/t^en-«0 

26-1595 SuperSCPnPSlT For Tn, Mooat I 

2615*6 SCRIPS!! For The Modal 4 

76-1597 Mooat J auameea Grimce Pa* 

26-1596 MorM 4 vdaotee taaai 

261600 Dcaonary tor me Mooat 4 

76-1630 meet T»' Sourer lor me Mooat 4 

26-1636 reEwl Mooat 4 PvoMe 

26 1922 Modal 3/4 Oroneaaa 90 

26-2011 Modal 1/3 EOAS Tape venaon 

26-2012 3/4 Ataamtey Language Oe.eropmem Couraa 

26-201] EDAS D-ae uarnon Modal 1/3 

26-2015 Mod* 3 eneructon Tapae 

26-7017 MorM 3 Aaaemtey Language Cowree Tape 

26-7011 Model 3 Aaeemfify Language Couraa Ore* 

26 2019 new TRSOOS 6 > Traaang Coune 

262022 Power Toot lor me Mooat 1/3 

76-7023 Dot Plot to ale Mooat 1/3 



767190 Mooat 4 COBOL 16 

76 7700 Modal 3 FORTRAN * 

26 2201 Modal I FOR'RAN | 

262203 Modal 1/3 C06OL 16 

26 7704 Modal 1/3 Compeer BASIC 12 

26 2205 Men. pilot J 

26 7210 Model 3 BASCOM 16 

76 22H Model 3 Atcor PASCAL 7- 

76 7717 Alcor PASCAL For Tne Mode- 4 21 

26 221) Modal I LOOS ilSi vere»- ( 

767714 Mooat 3 LOOS ILSI verier. I 

26-2216 CP/M Plus For Tne Modal 4 ij 

26 GOOD Tne Good CPM lor ma Model HMonie>.yT.a "9 

76RFA1 OOOO Maro Oe» Dnver io MM CP.-M 3 

26 221' CSASar: For The Model 4 >Reou>res CP.'Ml 6 

26 2216 BASCOM tc me Model 4 if 

76 7719 NCatt Fortran lor me Modet 4 | 

26 2220 23 vroeoie. J 

26 2224 Compuear^.'Dow Jonae So/i-up M.i 1 

76 2230 NfWI Model 4 c -enguage 71 

76-773' renei Model 4 Doucte Outy :i2*» raq i S 

26 2619 Modal 3 Corpam 4 

262718 Model 3 PHOT 10 

76-7771 Color Compute* LOGO Drsfc I 

26-2722 Coax Computer I OGO ROM Pec* 4 

26 3030 OS 9 For Tne Color Computer 5 

26 3036 BASK? 09 For Tne Color Computer I 

76-3038 Ntrwi C Cvnpaer ror tne Color Computer 8 

26 3671 Model 100 Learning Lab 2 

26 3*29 NEW! Model 100 Muttoan 13 

26 3*30 Model 100 Screw 3 

ALL Color Corapueer GVUeES 75% OFF Cacaleg Pnce 

all PCirDSi flOrrwaac 30% Oar Cetalog Pnce 

26 450i General Ledger i 16 

76-4507 mvantory Management System I *6 

26-4503 Peyrol )3 

26 4504 Accounts Ftecaweue) 25 

26-4504 Accounts PiyaPW 25 

26-450' Maang Lrll 4 >C 

26 450* Meocei Ortca Systems 63 

26 4509 Menureciurng Inventory Control 63 

76-4510 Versaree S 

26 4511 vraCarc 25 

26 4512 P-one II 1J 

26 4613 Joo Cosing 12 

26-4614 Order Entry »« 

26 4615 P-olee u Plus 25 

26 4516 P-orae T'Brrang Gu-3e ^ 

76-451' Prruae Pius Lipgrade 10 

26-4520 T-Yia ACcOunang 

26 4521 E inane eo 

76-4576 VouCaU P 

264531 SCR«»sii 

26 4532 SCRIPSIT ui.ni, Ds* 

2*4534 SCRIPSIT Dcaonary 

76-4536 SCRtPSIT Ptotter Or ver 

264540 Statistice Anaiyars 

26 4545 Litigaaon Support 

76-4560 Buamee* Grapfaca Aruays^ Pa* 

76-4554 Accounts Receivable 

26-4SS5 Menu Generator 

26-4556 Prolee Fomn 

26455' Protae Arciave 

26-4558 Prolae Proaon 

26 4659 Prooo* 

26 4560 WESTLAW 

76-45M MJtrPlan Mooat 7/17 

2*4601 Genera Ledger 

26 4*02 Inventory Control Sysaam 

26-4603 Payrrat 

26-4*04 Accounts Ftecarvacay 

26 4*05 Accounts Payaute 

26 4*07 Order Entry/CS 

76-4608 Saras Anetyars 

26-4612 Hfen Query COBOL 

26 4*20 NteVT Praceoenr 

26 4*21 Paraormei Seercf 

76-4701 FORTRAN 

264702 EDAS 

26 4703 COBOL 

26 4705 Compaar BASIC 

76-4 707 COBOL Generator 

2*4710 Program Edrtor 

2*4711 NfWI PASCAL MT 

264712 Aaeamcey Language fjevet o pment System 

26-411] EOAS i 

764721 voaote. Fa Tne Model 2/12/16 

26 4725 NfWI BASCOM BASIC Cornpaar 

26 4740 CP/M Plus 

264742 cbash; 

764002 Inventory lor mm Herd On* 

264*31 SCfl»>Sn 



Do. 
I On* 



76-4*35 SCRIPSIT lor Ttwena Driv 

ALL NEW aaODCL 2000 GOODIES 
265210 MWICtaneral Udgei 
26-6212 NfWI Accounts Payable 
26-5713 Ntwt Accounts Recervacae 
26-5214 NfWI irwentory Control Svttem 
26 5215 eafWI Order Entry 
26521' NtenPurcnaae Order 
26-5211 NtWIPayrol 
26-5251 NfWI BASCOM 
26 5262 NfwIMS-OOS Aaeempar 
765265 NfWI FORTRAN 
76-675* NfWI PASCAL 
26-5257 NtenCOeCa. 
26 5260 Hat vioacir-. Plus 
76-62*1 Nf Wl Soraarn 
26-6276 Nf Wl Grapnwmar 
26-527* NfWI OR Graon 
26-62'9 NfWI OR Draw 
26-6300 NfWI Lotus 1-2-3 
26-6301 NfwtOvaeon Raong Sonware 
26-5307 Nf Wl SuparCa*. 3 
26-5305 N«W1 pta «a 
26-530* latwi en repon 
2*-530' NfWI pis grapn 
26-5309 NfWI pts wnte 
26-5311 NtWIMuerplan 
26-5314 NfWIMaroaoti Word 
26-5330 tafwiMueaete 
26-5340 Nf wi Home Accountant 
26-5362 NewloSASE ■ 
26-63 '6 Nf Wl IManeaje 
26-637' NfWI Planettal 

MOOCL 12 6 If MOCrO JOFTWARE 
26*100 COBOL Oeve aj prnenl System 
2643201 General Ledger 
7e-«203 Pawc* 
266204 Accouma RacawaOle 
266206 Accounts Payable 
26-6207 Order Entry/CS 
26-670* Setae Anafyee 
266209 Job Coeang 
26-6302 awrantcay 
26-6309 Manutactureig CS 
2643401 ICEMK Daveaoprnera Syatem 
264412 Prolae tor icmi 
26-6415 Utaty 
26-6431 Soaaaa Kr UIMJI 
266460 MACI6 Macro Aaaemoter 
26-6451 RW/FOFirftAN tea Kmm 
76-6452 NfWI PASCAL tor (ENH 
26-6456 COBOL lor XEWX 
264345T MtVASlC ke HENU 
26-6460 Mutapaan Modal 16 t IENU 



fN«tnc Pence 2.0 Model 

teae Pettca Model 1/3 
Rao Pencil Mooat 1:3 
Modern M a Powertui C 
Tr aca ceee >or me Mooai 3 
Super uaaaty Ptue 3 2 Runs 



CP/M OPERATING SYSTEMS 



i MuOt- 4 The ' 



BOOKS and MANUALS 



26 2i 
76 21 
26 21 



*5IC 



Sourc. 

15 Newtieiier Boo* i960 4 

7*711' Model • DOS Manual 15 

26 2240 Nawslertar Boo* i90i a, 

262241 Newttener Boo* i9*2 n 

7*3191 Color Computer Manual 5 

263192 Eitended Cotor Computer Manual S 

26 3193 Color Computer i Tacrwcai Manuar ll 

763*10 Mode) IOC Tecnracer Manual e 

26 3*19 NfWI Modal 100 Boo* er :.*--i ■ ur 13 

26-4920 Model 7 Operators Manual 2* 

76-4921 MorM 2 Tecfmcat Relerence Manual 26 

26-4922 Modal 12 Oparatng Manual 69 

26 5403 Model 2000 Programmat $ Manual 1 7 

26-S404 Model 2000 Hardware Manual 17 

26-6040 Model 16 Operators Manual 64 

266041 Modal 168 Oparatmg Manual 72 

62-2064 IRS 80 Pocket BASK Handbooa 6 

TRS-60 Orak 6 Otlyar Mywaran e, - c K~r* If 

Mcroaotl BASIC Decoded *, w*. 'm-*^ 24 

BASIC Faster 6 Better ,.. l._, k . n a 2a 

BASaC Faster t Better Oemonsiraaon On* 15 

BASIC Faatei * Betaai Larxan, Do* IS 

BASIC Drs* I/O Faster 1 Better „ « a. a. 24 

BASIC Drs* I/O CWrnonaliatron Dnh 24 

Tne Cuatom TRS-BO <- cw~ «.■-.., ..,, 24 

TRSOOS 2 3 Cracodad -, .-~. — . .-.„ 24 

Mecrane Language Dra* I/O *i — . *w* 24 

Mow 00 It On The TFtS-SC r, aw r.o. , 24 

TRS 60 Bega-inert Guoe 13 

Inside Super Uterly Plus 3 a. — *■»-, ea IS 

UPGRADES 

16a ram 200 naec I Fui tear Guarantee 1 12 

64A ram 200 naec i fji Year Guarantee 64 
Modal 4 126* RAM Upgrade Hi wrm Genua*! PAL 74 

26-1125 Model 3 ra-Resoiunon Graptacs Board 1*6 

26 1176 Model 4 HrFuaaotjaon Grapracs Board 226 

26-1127 Model 4 Dnve Kit 444 

Seme as above encepi our brand Save SsSS 369 
Famous AEROCOMP DOC Double Density Controtar 99 

76-1145 Mooat i RS732 Board wen cab* 99 

Modal 3/4 RS237 insiaiiai.'o ►.' less catae 69 

261162 Model ] Drrve U 444 

Same as above aaoapr our brand Save SSSS 369 

76-1163 Redo Snec* 40 Trace Drs* Onve 203 
Same as above eacapt 40 eacfc Tanoon Save SSS 159 

MODEL 4 IMKJ Ipieeaaa Med 89 

holmes Model 1/3 4Mru Speedup Mod 



HOLMES I 



26-51*0 
26-5I61 
2*61*2 
26 6164 

2*6010 
26-6011 
26 6012 
2*601] 
76-6017 



] V 10-60 osmpkne wrm 1 12K RAM 
t end SO ■ 24 wjeo teae •*** 
l*a RAM For MC 10 Color Computer 
Model 2 re-Reeoiution Greptacs Board 
64H RAM Board 
8 Samane Doubte-a«3a Onve 
Model 2000 <0MD Hard 0e» Kn 
Model 7000 re-Piaaoluaon Orscncs Board 
Moraa 2000 Color Greprvc Cap Sal 
atodei 2000 Mouse/Ctoca Board 
Moder 7000 Intamal I26K &omrG 
Modal 2000 Enamel i?8" Board 
Model 7000 i2S» RAM lor 26-5161 
NfWI Mooai 2000 Senai Board 
Modal 2 o> i2 to Mors* 16 6*000 rui 
Modal 16 12*K RAM Board 



CP.n 



399 



aaodei 12 I2*K l 



I Kn 



we rreenuen an a»*snsrvaiy eourppad service lecaty wan e large 
stoca ot pans Give us a caa lor tnet rward-io raid ream we l 
try and oromde wnei you need 

BUY FROM US RIGHT NOW! 

Ou< *>-entory is so 'arge a can no* be aaaad coni^eSaty 
Pieaae cad >f you do not see -wrm you want Chances are 
we hewi a Because a* tie time lag -n magaz*ne arNe n e>ng. 
pnees era Suftiact to cnange w*it»out note* and are mad order 
orey We are not reeporse«3a» lor rypm/ptucal errors Yotaf 
oornpany and/or personal cner>» are we-a Co ma and w* not 
delay your order we usa TeieCnacti Piaaae ottearve the 
kaowra requ^arnents and your order **i d* anepped wtthout 
delay T>*e Chech musi t* drawn on a USA or Canadian oank 
and payable n US 0<ears R muei c-s a bar* primed crwo 
and contain ,ou' straai address and leeapnona nurnbai Tne 
s^nature musi EXACT! t rnatch Vte narna pnnaad on tne 
cner> Thats <w mare «S to rt m add*on. we acoapt Airiencan 
£. press Massarcard Visa Ca»r»ar t CnaOis. Wire Tnanelar 
and we at*o an»p COO COO s and moior freight iNprnenis 
mey reowre a dtoomi Some special items regiare deposes 
all COOs requre caan or caahavs chack on cttMry 
Company and/Of parsonal ohechs can NOT be accepsed n 
peyrTieni of COO arwpmenu CrecM cards w not charged 
unai we srap your order ■■ ■■»? M IQ CHAAQC* A« «e9T 
MCLUDC0 Please add %& handang to aa ordsrs loiaimg Leas 
than i$0 *voo %20 handbng a^tr^t to ** orders over |S00 
srippad to Canataan addresses No State Sales l»> 
coeected on out~o<-sune iw^prnent s » you order by 5PM your 
oroar wel be srttpped the NtKT DAY rt stock e on hand 
Rescons20iat. 0* SurUbtSty of sofhaare nnts «■•* the 

K chaser Oua to tie nen*e oi tras bu»*naaa ihan> an MO 
fvjhos om sorrwAAt, ttvuicmmmt will m 

rHSOVIOCP FOB ueFTCTIVl »OrrWAM iTtafca. provided 
v«a an nopaafl wa*en ten oays 0* tSaSian/ 0* •*» 
mwxtmdm N you tw ■ pancuier prot»am pteaae cat us 
tor help and 



WARRANTY 

Al earns carry the ongnaf rnenufacturers waiT a nh/ We <*el 

be happy to mail you a copy upon request 

C4U rote *»5F r*OU AHYWHE »f m THf USA 

800-527-0347 
800-442-1310 



s See List ol Advertisers on Page 145 
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Continued from p. 39 

menu is Make Basic Lines, which takes 
everything already entered (saved in a 
collection of disk files) and pulls it all 
together into a single, functioning Ba- 
sic program. You must answer a few 
prompts, but the process is nearly 
automatic. The resulting program 
contains enough comments so that 
most people familiar with Basic can 
modify any of it they choose. 

But you aren't finished yet. The 
Producer has created a program 
whereby you can input data, store it 
on disk, and edit it at will. But the re- 
port structures need to be defined to 
make that data useful. Once again 
there is a menu option, Build Reports, 
that does most of the work. 

While the report generator is flexi- 
ble, it isn't as impressive as the rest of 
the package. You select which fields of 
each record to print and in what order. 
Also, for each report, you can prede- 
fine a range of records used to gener- 
ate the report, or define prompts so 
the user can make the selections. You 
can also define a report to create mail- 
ing labels. 

The Producer lets you define up to 
nine different report forms for each 
data-handling program. The different 
reports will appear on a menu avail- 
able to the user of the final program. 

The Freeform Report Generator 

The format of the reports generated 
is limited unless you use the Freeform 
Report Generator (available with the 
enhanced Producer package). This 
program is the best part of the entire 
package. It lets you use a variety of re- 
port formats, complete with extra cal- 
culations, subtotal fields, and grand 
totals. You can even combine infor- 
mation developed with two or more 
Producer-generated programs if you 
have some Basic programming skill. 

While the Freeform Report Gener- 
ator is the most complex part of The 
Producer, it's difficult to imagine any 
data base report it couldn't generate. 
But, the Basic programs it does create 
are the only part of the package that 
operate more slowly than I would like. 

When you're finished developing 
both the data-entry programs and the 
final report forms (which you can add 
to or modify at any time), you're 
ready to put all of it together in a Basic 
program. The last selection from the 



main menu is Build Program. After 
answering a few simple questions, The 
Producer does all the work for you. 
You can run the final product either 
under the tiny DOS supplied or 
transfer it to a DOS of your choice. 
You could also compile the program 
with Microsoft's Bascom, though I 
haven't tried it. 

No matter how complex your pro- 
gram development, the finished prod- 
uct is easy to use. It opens with a com- 
bination logo/menu page (you can 
create your own logo if you want) 
from which you can enter new data for 
the data base, edit data previously 
entered, reorganize the structure of a 
data base for faster access, perform 
global search and replace operations 
on your data, go to a report menu, or 
exit from the program. All of the stan- 
dard operations are easy to perform. 

Weaknesses 

The Producer does have a few weak- 
nesses. First, when defining the record 
form for the data base, you're limited 
to information you can fit on a single 
screen. You can define a total of 32 
fields, and the total possible length of 
each record is limited to 251 bytes. The 
Producer uses variable-length random- 
access records to store information, 
and needs 5 bytes of each record for its 
binary-tree organization. If you want 
to use The Producer on NEWDOS80, 
which allows records longer than 256 
bytes, you can alter a Producer pro- 
gram to increase record size, but I 
haven't yet needed to try. 

The system uses a special form of 
Trashman to speed up string handling 
and avoid long garbage collection 
pauses. In general, everything (except 
reports created with the Freeform 
Generator) runs fast enough so that all 
the disadvantages of Basic seem to 
have been avoided. 

The Producer expects that you will 
want to enter all the string data in up- 
percase. You can use mixed case easily 
while creating a program, but only 
with some unnecessary difficulty in 
the final program. Such a restriction 
would make sense on a Model I, but 
not on a Model III. 

The Producer's documentation says 
that a technical manual was to be 
available by early 1984, but when I 
called about it, I was told that no one 
had even started to write it yet. A 
quarterly newsletter, as well as techni- 



cal help by phone, is available to 
registered owners. 

Overall, The Producer is an excel- 
lent package. I've used it to create 
three separate and very different types 
of data bases and found it capable of 
doing everything I wanted it to. If you 
are looking for a flexible data base 
manager, seriously consider The Pro- 
ducer. ■ 

CompuServe on $5 a Day 

by Gary A. Shade 

J-fow to Get the Most Out ofCom- 
M. A pu Serve is one of the best books 
I've read. It not only covers the major 
areas of this mammoth consumer in- 
formation service in an easy-to-read 
manner, but it can save you money. It 
was a pleasure to read, which is some- 
thing I can't say about most computer- 
related books. 

Information services like Compu- 
Serve are the fastest-growing segments 
of the telecommunications industry. 
All services of this type charge for the 
amount of time you go on-line. Many 
people (myself included) have found 
this to be costly, especially when 
you're first learning to use the system. 
Charles Bowen and David Peyton 
recognized the shortcomings of Com- 
puServe's documentation. This book 
will eliminate your fear and apprehen- 
sion, and ultimately save you money 
in connect charges. 

The 277-page book is arranged in 
lessons, each dealing with a different 



How to Get the Most 
Out of CompuServe 

***** 

Charles Bowen and David Peyton 

Bantam Books Inc. 

666 Fifth Ave. 

New York, NY 10103 

277 pp. spiral bound 

$12.95 



WeU written? ***** 

Organized? ***** 

Thorough? ***** 

Readable? ***** 
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YOUR BEST BUYS ARE WITH SOUTHWESTERN DIGITAL 



TANDY 1000 / 1200 



TANDON DOUBLE SIDED FULL SIZE DRIVES BARE $189. 

TANDON DOUBLE SIDED FULL SIZE DRIVE WITH CASE .$239. 

TANDON DOUBLE SIDED 1/2 HEIGHT DRIVES BARE $159. 

TANDON DOUBLE SIDED 1/2 HEIGHT DRIVE WITH CASE $209. 

64K MEMORY (9 CHIPS) $ 50. 

HAYES 1200B $399 

HERCULES COLOR CARD $209. 

HERCULES GRAPHICS CARD $379. 

PERSYST COLOR CARD $209 

PERSYST MONICHROME CARD $259. 

QUADRAM COLOR CARD $219. 

QUADRAM EXPANDED QUADBOARD OK $249. 

QUADRAM QUADBOARD II OK $249. 

QUADRAM 512+ 64K $249 

QUADRAM PARALLEL BOARD WITH 8' CABLE $ 84. 

QUAD I/O PARALLEL, SERIAL. CLOCK, AND GAME 

PORT CARD $189 

SEATTLE RAM +6 OK $229. 

SEATTLE RAM +3 OK $199. 

SEATTLE RAM ♦ OK $149. 

STB SUPER RIO 64K $349. 

STB RI O 64K $329. 

MODEL 3/4 RS232C KIT $ 59. 

MODEL 3/4 DRIVE KIT WITHOUT DRIVES $190 

MODLE 3/4 DRIVE UPGRADE $339. 

MODEL 3/4 DRIVE 1 UPGRADE $149. 

MODEL 3/4 DRIVE AND 1 UPGRADE $499. 

MODEL 3 16K UPGRADE KIT $ 13. 

MODEL 4/4P 64K UPGRADE $ 45. 

PAL FOR MODEL 4 64-128K UPGRADE $ 17. 

MODEL 1/3/4 EXTERNAL DISK DRIVE $169. 

MODEL 1/3/4/4P PRINTER CABLE $ 19. 

TANDON SINGLE SIDED 1/2 HEIGHT BARE DRIVE $129. 

TANDON DOUBLE SIDED 1/2 HEIGHT BARE DRIVE $159. 

TANDON SINGLE SIDED FULL SIZE DRIVE $149. 

TANDON DOUBLE SIDED FULL SIZE DRIVE $189. 

DRIVE FOR COCO $279. 

DRIVE 1 FOR COCO $169. 

DRIVE & 1 FOR COCO $428. 

64K KIT (8 CHIPS) $ 45. 

HJL KEYBOARD $ 69. 

MICRONIX KEYBOARD $ 69. 

KEYTRONIC KEYBOARD $ 79. 

PARALLEL PRINTER ADAPTER $ 50. 



PRINTERS 



4iipi>CfS'*fterl to't maoedts 
Mj *ou< pavmtnt j-f 1 i » io «* 



*ddt> i 
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OKIDATA 82 $329 

OKIDATA 93 $689 

OKIDATA 84 $875. 

PANASONIC 1090 $279. 

PANASONIC 1091 $339. 

PROWRITTER 8510 AP $319- 

FLIP AND FILE 50 DISKETTE HOLDER $ 14. 

VERBATIM 525-01 DATALIFE BOX OF 10 SS/DD $ 20. 

VERBATIM 550-01 DATALIFE BOX OF 10 DS/DD $ 26. 

QUADRAM MICROFAZER PRINTER BUFFER 8K $129. 

EACH ADDITIONAL 8K $ 6. 



MODEL 1000 HARD DRIVE 



$775. 



10 MEGABYTES READY TO PLUG IN AND GO ' 
Why waste money? This Hard Drive mounts Infrnal to 
upgrade your 1000 to the storage capacity of a 1200. 
Installation only requires a screwdriver. 



THIS MONTHS SPECIAL 



TECHMAR 



SAVE $200. 



GRAPHICS MASTER 



$499. 



regular $699. 



OUTH 

ESTERIM 
IGITAL 



1-713-480-3296 

2515 W. Main #337, Houston, Texas 77098 




See List of Advertisers on Page 145 
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aspect of the system. You start with 
the basics: logging on, changing your 
password, and configuring your sys- 
tem. Each excursion you make on 
CompuServe builds on what you 
learned in the previous lesson, giving 
you the knowledge and confidence to 
explore further. 

The authors state that using the les- 
sons will amount to approximately 
$36 worth of on-line time, according 
to current CompuServe rates. But they 
demonstrate so many shortcuts and 
advanced features that the charges 
seem trivial. Even if you plan on only 
being an occasional user, the $36 is still 
a wise investment. 

Bowen and Peyton discuss and ac- 
cess every phase of CompuServe with- 
in the lessons, from retrieving the 
weather forecast for your area to using 
the bland but popular CB simulator. 
The lessons include the commands ne- 
cessary to efficiently use each service. 
Many of the tips have already cut my 
on-line time and costs. 

Full Coverage 

Both authors have been sysops (sys- 
tem operators) for various Compu- 
Serve special-interest groups (SIGs), 
so they know their way around the 
system. They even take you on a tour 
of The Good Earth SIG (HOM-145), 
of which Dave Peyton is the sysop. 

A trip to the new Compu-U-Store 
is one of the topics discussed in 
Chapter 14. A consumer can search 
the store for an item (over 50,000 are 
stocked) and order it through this ser- 
vice, which offers goods at a dis- 
count. While there is a membership 
fee for using the Compu-U-Store, the 
authors walk you through by using 
the free demonstration. 

Other topics and lessons include 
banking by computer, the electronic 
mall, financial services, and how to 
buy software through CompuServe. 
The reader is shown how to prepare 
an electronic message through e-mail 
(electronic mail) and how to post it. 
Similarly, the authors show how to 
leave a message on the national bulle- 
tin board, which all CompuServe 
subscribers can access and read. 

Advanced lessons demonstrate 
how to turn off the CompuServe 
menus (saving you time and money) 
and how to create your own custom 
menu. An "Cm-Line Survival Kit" is 
included in the Appendix that sum- 



marizes the commands used in the 
different areas. It is arranged in a log- 
ical, easy-to-reference manner. 

Conclusion 

I've been a CompuServe subscriber 
for nearly three years and I feel com- 
fortable with the services I normally 
use. Yet I still felt intimidated by the 
costs of learning new aspects of the 
network. 

During one of my first experiences 
with CompuServe, I found myself 
watching screen after screen of text 
roll by without knowing how to stop 
it. I frantically searched the manual 
trying to find the code to terminate it. 
In frustration, I turned the power off 
to the modem, disconnecting myself. 
After calming down, 1 realized I had 
just thrown away a half hour of the 
free time given to new subscribers. 
I'm sure many other people have had 
the same type of experience. 

The alternative to purchasing How 
to Get the Most Out of CompuServe 
would be to order the many different 
user manuals from CompuServe, 
which explain the areas within the 
network. But these do little to elimi- 
nate the intimidation, confusion, and 
frustration felt by new users. 

This book will save you time and 
money, from log-on to sign-off. It is 
for anyone interested in using Compu- 
Serve more efficiently, whether a first- 
time user or experienced veteran. ■ 

Great Zeus: A Solid 
Model I/ffl/4 
Editor/ Assembler 

by Ronald A. Cangro 

When I first got Cosmopolitan 
Electronics' Zeus Editor/ As- 
sembler, I was a little disappointed to 
find that it had a line-oriented rather 
than a screen-oriented editor. But my 
apprehension dissipated when 1 used 
the system and found it to be fast, ver- 
satile, and full of features not found in 
other editor/assemblers. 

Zeus combines the best characteris- 
tics of both a line and a screen editor. 
You can edit anywhere on the screen 
by moving the nondestructive cursor, 
but program changes affect the cur- 
rent line only, speeding correction 
time. And the assembler supports 
some impressive features: multiple ex- 



pressions on a single line, a three-pass 
assembly operation that significantly 
speeds up assembly time, comment 
blocks at the beginning of the object 
code, and labels. While Zeus lacked a 
few things, like a macro capability, a 
built-in debugger, a direct assembly to 
memory, tape input/output, and a 
cross-reference facility, it's a good pack- 
age for developing small- to medium- 
sized programs. 

The Editor 

The disk has its own operating sys- 
tem, MULT1DOS (also manufactured 
by Cosmopolitan Electronics), that 
runs on a Model I, III, or 4. When you 
boot up Zeus, the familiar DOS logo 
appears. Loading Zeus from disk au- 
tomatically puts you in the edit mode. 

The Zeus editor has two modes of 
operation: line-oriented and charac- 
ter-oriented. On boot-up, you're in 
the line-oriented mode and you invoke 
all commands with a single keystroke. 
Most of the letters correspond to the 
functions they perform: L loads a 
source file, D deletes a line, and I lets 
you insert code (see Table 1 for a com- 
plete list of commands). 

Once you load text in the buffer, 
you can scroll through it; you display a 
full page of text (16 lines) by pressing 
the enter key. 

Edit commands let you find specific 



Zeus 
Editor/ Assembler 

*** 



Cosmopolitan Electronics Co. 

5700 Plymouth Road 

Ann Arbor, MI 48105 

313-688-6660 

Models I, III, and 4 

32KRAM 

One disk drive 

$79.95 



Easy to use? 


• • • • ft 


Good docs? 


ft ft ft ft ft 


Bug free? 


ft ft ft ft ft 


Does the job} 


» • • * ft ft 
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70 INCOME TAX PROGRAMS 

(For Filing by April 15, 1985) 
TRS-80* Models I, II, III, 4, 12 & 16 



FEATURES: — 

1 Menu Driven 

2 Save on Disk 

3 BASIC. Unlocked, tistable 

4. Name SS No F-S carried 
over 

5 Inputs on screen before 
printing 

6 IRS approved REVPROC 
format printing 

7 Prints entire Form Schdule 

8 Calculates Tax etc 

9 For Mod III A. CONVFRJ 

10 For Mod. 12 16 use 2 Ob 

1 1 Use GREENBAR in triplicate 
- don t change paper all 
season' 

12 Our 6th Year in lax 
Programming 

13 We BACK-UP our programs ' 



.^^h-^^k. 


•/••'^ "' 


MasterCard] 





For the Tax Preparer. C PA Lawyer and 
Individual 70 Tax Programs on 12-5 1/4" 
Formal disks, or on 3-8 Format disks 
Order only the disks you'll use 
Programmed tor easy-use Follow the 
Form or Schedule closely Check-points 
along the way Results on screen belore 
printing 

70 TAX PROGRAMS include Forms 1040 
1040A. 1120. 1120S 1065 and 1041 
Schedules A. B. C D. E. F G R. SE and 
W Forms 1116. 2555. 2106 2119.2210 
2440 2441. 3468. 3800. 3903. 4136 
4137. 4255. 4562. 4684. 4972 4797 
5695 5884 6251 6252 and 6765 

Also we have TAX PREPARER HELPER 
includes 12 PROGRAMS such as IN- 
COME STATEMENT. RENTAL STATE- 
MENT SUPPORTING STATEMENT. IRA. 
ACRS 1040 ES ADD W-2s PRINT W-2s 
and others 

5 1 4" disks at S24 75; 8' disks at S99 
Postpaid Tryout disks available 



Write:— 
GOOTH TAX PROGRAMS 

931 So. Bemiston • St. Louis, Mo. 63105 

•T.M Reg by Tandy Corp Ft Worth. T« 




EPROM PROGRAMMING SYSTEM 
For TRS-80 MODELS I. III. OR IV 

1 Program contents erf buffer to EPROM 

2 Verifies contents of buffer against EPROM 

3 Reads contents of EPROM to TRS-80 buffer 

4 Checks if EPROM is erased. 

5 Displays contents of buffer 

6 Abity to edit buffer from TRS 80 keyboard 

7 Reads both prom image and command files from disk 

8 Strxes prom image files to disk 

9 Fast program mode for duplicating EPROMs. 

10 Software sets up programming parameters from EPROM type 

MODEL EP-2A-79 EPROM PROGRAMMER. TR-24 parallel interface, disk software 
(specify TRSDOS or CP/M). and personality module PM 5 for programming 
2716.2758 EPROMs $225 CO 

Personalty modules available for 2708. 2716. TMS27 16. 2732. 2732A. 2532. 
2764. 2564. 27128. and MCM68764 EPROMs. 281bA EEPROM; 8751. 
38E70MPUS17TOS35 

Optimal Technology 

Earrvsville, Va 22936 

804-973-5482 " ai 



WILL YOU BUY COMPATIBLE? 



Compatible (or) will you pay too much? 



Ask About Our 

"30 DAYS 

Buy Back- Policy" 



MCTUtL 1200 640fo 




sa «***gasEF?L 



c 



SneSfiE 



1 DRIVE PLUS 10 MEG 







10LJLDRIVES plus 10 MEG 4 
HARDDRIVE 
BUILT-IN ___ 

HARDDRIVElB mmmi 

BUIIJJN] 
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SAVE SALES TAX' 
PLUS DISCOUNT 

•TEXAS RESIDENTS ADD ONLY 4' n°„ 



• 



SERVICE AND 
WARRANTY NATIONWIDE 



^ 



c 



FORT WORTH COMPUTERS 



WE ARE SERIOUS ABOUT SAVING YOU MONEY 



(Located 30 miles from Fort Worth) 
377 Plaza • GRANBURY • NR FORT WORTH. TEXAS 76048 



TM: INTERNATIONAL BUSINESS MACHINES INC 



CALL FREE NUMBER: 1800433-S-A-V-E 

Monday thru Friday — 9:00 a.m. to 5:00 p.m. Texas Time „2H 
Aa (Order Inquiries/Customer Service &) IN TEXAS: 817-573-4111 . 
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text character sequences, exact line 
numbers, and even lines referenced by 
a specific label. And you can insert 
text at any time with dynamic line re- 
numbering, allowing unlimited text in- 
sertion between any two lines. 

You can edit any character within a 
specific line by using the Edit com- 
mand, which puts you in the charac- 
ter-oriented edit mode. This is similar 
to the Basic interpreter editor, with 
one exception: you see exactly what 
you're editing at all times. The nonde- 
structive cursor moves left and right 
over the line, and you use simple con- 
trol sequences to delete, insert, or 
overtype a character, or to move to the 
end of a line. Use either the down-ar- 
row or clear keys as the control key. 

The editor allows a global search 
and replace of a particular string. For 
example, you could change all occur- 
rences of STRING 1 to STRG1 in one 
operation. Single-quoted text and 
comments remain unaffected unless 
you specify that option. This is a flexi- 
ble and useful command although it 
doesn't work on opcodes and oper- 
ands. You can also move or duplicate 
a line (or group of lines) anywhere in 
the text buffer. 

It's possible to display the amount 
of memory- the source text, symbol ta- 
ble, and Get file buffers use, as well as 
how much memory- you have left. This 
is helpful in gauging where to split 
your source text. 



Although you probably won't real- 
ize it until it's too late, Zeus's most 
useful editing command is X. You use 
it to recover source text when restart- 
ing Zeus. You only have to crash your 
computer once to appreciate it. 

The editor also checks every source 
line for correct syntax as you enter it. 
It even checks the source code that you 
load from an ASCII file or an ED- 
TASM format file before putting it in 
memory-. This saves a lot of time 
tracking down elusive syntax errors 
during assembly. 

Since Zeus allows editing and as- 
sembling without destroying the 
source code in memory, you may 
think this means there isn't much 
room left for serious programming. 
But the program allows 34K for 
source and symbol code, and supports 
the Get pseudo-op that makes it possi- 
ble to break your source code into 
modules and store them on disk. The 
assembler then reads the disk files in 
sequence. You could actually use the 
34K for symbol table storage only. 

One handy feature that Zeus lacks is 
a keyboard macro capability, which 
would have made it easier to enter 
commonly used phrases and words 
with a single keystroke. 

The Assembler 

The assembler has a rich assortment 
of features. Table 2 lists the available 
pseudo-ops. It supports the common 



Intel and Zilog pseudo-ops, including 
multiple expressions on the same line 
with the DB, DW, and equivalent 
pseudo-ops. This feature alone makes 
it worth the price. 

It handles conditional assemblies 
using the If. . . End ... If clause and an 
ERR error switch. Zeus also provides 
an assortment of subcommands to 
control assembly listing and printout, 
error-handling, object-code genera- 
tion, and symbol tables. Table 3 shows 
the assembler subcommands available. 

While the assembly is in progress, 
you can pause and restart the listing. It 
uses 16-bit operations while evaluating 
expressions. It does multiplication, di- 
vision, addition, subtraction, and 
modulo arithmetic as well as the logi- 
cal Or, And, left and right shift, and 
exclusive Or in label evaluation. 

One of Zeus's unique features is its 
three-pass operation. During the first 
pass, the assembler creates the symbol 
table and defines the values of the DS, 
End, EQU, and ORG pseudo-ops. 
After this phase, you can reference all 
the lines by label names. During the 
second pass, the assembler does the 
actual assembly and directs output to 
the screen and object file. It then sets a 
flag. All the additional assemblies 
with this flag set will proceed with pass 
three; an instant assembly on all pro- 
cessed source code in the buffer. This 
definitely speeds up development 
time. 



Command 


Description 


Pseudo-op 


Description 


A 


Assemble source code 


COMM 


Comment 


B 


Command mode calculator 


DEFB or DB 


Define byte 


C 


Global change 


DEFL or DL 


Define label 


D 


Delete line(s) from the text buffer 


DEFM or DM 


Define message 


E 


Edit specific text line 


DEFS or DS 


Define space 


F 


Print line with the specified label 


DEFW or DW 


Define word 


G 


Primer format command 


End 


Terminate assembly 


H 


LPRINT line(s) 


ENDIF 


Delimit conditional assembly 


I 


Insert line(s) 


ERR 


Abort assembly 


J 


LPRINT raw data 


EQU 


Equate 


K 


Kill file 


Get 


Include source from disk file 


L 


Load file 


If 


Begin conditional assembly 


M 


Move/duplicate text line(s) 


List 


Control printing 


N 


Reset (new) text buffer 


ORG 


Origin 





Opcode/operand Reference 


Page 


Eject to top-of-form 


P 


Print line(s) 


SBTL 


Subtitle 





Quit/exit 


TITL 


Title 


R 


Reference 






S 


Save file 






T 


Print sorted label table 






U 


Memory used 






X 


Recover source text on reentry 






Table I. 


Zeus editor/assembler commands. 


Table 2. Assembler pseudo-ops. 
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PROGRAM PACKAGING 



Complete line of program packaging 

• Tandy 2000 style cloth binders & slips tor 5V 2 x 
8V2. $10.50; 10+. $9 50 

• Vinyl binders for 8 1 .j x 1 1 page size Clear 
pockets on front and spine tor your program 
identification. Excellent quality 

Ring 1-9 10-50 100 ♦ 

1" 4 00 3.25 2.75 

V/t" 5.00 4.25 3.75 

2" 5.50 475 4.25 

• Vinyl portfolios for games and utilities For 5Vi x 
8V2 page, with clear pocket on cover, pockets 
inside tor disk and manual. 

1-9 $2.50, 10-49 $2.25; 50+ $2.00. 

• Many other items tor software developers and 
users. FREE 32 page CATALOG. Min. order $35. 



ANTHROPOMORPHIC 
SYSTEMS, LIMITED 



ELEPHANT 
PREMIUM DISKS 

Certified error free Meets 
150% of ANSI standard 
Static free plastic packag- 
ing to protect your data 
Unconditional warrantee 
Tyvek envelopes, labels 
and hub rings. Boxes 
of 10. 




"NEVER FORGETS' 





List 


1 


2-9 


10 + 


SS/DD 


38.50 


23.00 


19.25 


18.00 


DS/DD 


48.00 


28.00 


24.00 


22.50 


DS/QD 


67.00 


37.50 


33.50 


32.00 



These are the NEW Sttirer Pnmlum disks. Don't 
confuse with the less desirable yellow package. 



376 E St. Charles Road 

Dept 80 Lombard. IL 60148 

(312) 629-5160 



UNLIMITED PROFIT POTENTIAL S- 

WATCH OUT WALL STREET!! New ava-laD'e on tioopv d'SH 'o< 
Brokers and active trade's The AMAZING con-.o-te' pr'-ora"- 
"STOCKEIU •• uses new Moving Window -Spectral algorithm to lore- 
cast stock/commodity market TURNIMQ POIHTS— no? mce Ut-'C 
I T,e. ■'moving averages AftordaDie' Easy to- use' 

USED BY STOCK/COMMODITY BROKERS a ACTIVE TRADERS 

(••maps ,ch, !.- .•e-i.»t l -."»'5IOC««i .-a-'e-sr 

NEW! .»_,_.»«» 
COMPARE 

STOCKS* t 



ii average 0a.iy cio&vq 



■' . V~ 



:.r.^ - 



1 me* u*o«» >■. 



-stocks*! 
ibm pc msdos 

APPlt II ll» II* 7BOCAR0 

IRSeO MOD 111. 4 II '2. 16 

'ANtiV I'OG-I MSIH ^ 

4HK MINIMUM 

S2B9 MASTER/VISA/CHECK 



ENGINEERING 
MANAGEMENT 
CONSULTANT 

*o»»i.j ^-172 



»«■ STOCKERi 



Tidbit* 17 



I used to wonder why MULTIDOS disks provide only 
75K RAM of free memory in double-density. That was 
before I realized that I could get 349. 5K of memory as op- 
posed to a skimpy 75K with the quick and easy method 
described here. 

First, at the track count prompt, invoke the back-up 
command using drive zero as the source drive. If you've 
previously formatted the disk, type in Y to format the % 
tracks; otherwise, the computer does this automatically. 



The duplicator program verifies sectors and tracks up 
to track 35, where it stops and prompts you to press the 
enter key, responding with the "Data record not found 
during read" message. Ignore this and type in backup 
again. Now repeat the procedure described above. This 
time, however, don't reformat the disk. By not reformat- 
ting, you're able to copy the rest of the disk by skipping 
the verification process. 

Now follow the prompts, and when finished, press the 
enter key, making sure that you have a MULTIDOS sys- 
tem disk in drive zero. To check your free memory, call 
up a directory of the original disk. You should have a disk 
with % tracks and 349. 5K of free memory. 

Barry LaLone 
Lake Orion, MI 



EXACT REPLACEMENTS 



NEW PRINTERS ADDED! FIND YOURS BELOW D|RRQ|| C A| B EXACT REPLAC 

RADIO SMA^K • CENTRONICS • COMMO0ORE • EPSON • ANADEX • BASE 2 • IBM • NEC • C ITOH • DEC • OKI0ATA • OTHERS 



PRINTER 

MAKE. MOOEL NUMBER 

(Contact us it »Our printer is 
not hated We can probably 
RELOAD your old cartridges i 



BASE 2 ■ DIP 81/82/64/85 MPI 68/89/GX 



C ITOH Prowritar 1550/8510 - NEC 8023/8025 



C ITOH Starwritar FIOYCARBON FILM BLACK 
DIABLO HYTYPE II A FABRIC BLACK 



OKIDATA PACEMARK 2350-2410 Black 
MICROLINE ML80/82/83/92/93 
MICROLINEML84 



RADIO SHACK 

CARBON FILM - OWP-210 

DAISY Wll OWP-410-510 



Black (1445) 
Black (1419) 
Colors (1419) 
Black (1458) 
Black (1449) 



Rad, Groan, Blue, Brown 
FABRIC (Long-Ufa) DWP-210 
DAISY WII-DWP 410/510 
LPI-IMV CENTRONICS 730/737/739/779 (1413) 
DM P-200. 120,430 (1296) (1483) 

DMP-5O0 (1482) 

OMP 2100 TOSHIBA P1 340,1 350.51 (1442) 

DMP 100. LP VII Commodore 1 S2S. Gorilla Banana (1424) 

LP III V (1414) 

DMP-400/420, LP VI-VIII (1418) 



EPSON LO 1500 

MX/FX/RX 70/80 - IBM PC 
-MX/FX/RX100 -IBM PC 



COMMODORE 8023-P ■ CENTRONICS 152-2 



RIBBON 
SIZE 

inches 

by 
Yards 



INSERTS EZLOA0- 

DROP IN. NO WINDING' 
EXACT REPLACEMENTS 

made i" ou f own shop 
cartridges not included 



$15/3 $54/12 $288/72 



$15/3 $54/12 $288/72 



I'?.40 



$24/6 $42/12 
$21/3 $76/12 



$234/72 
$510/72 



$30/3 $108/12 $576/72 



$24/6 
$24/6 



$42/12 $234/72 



$42/12 



$30/6 $54/12 



$21/3 $78/12 



$ 21/3 
$12/3 
$15/3 



$78/12 



$234/72 
$288/72 
_$51Q/72 
$510/72 



$45/12 $252/72 



$54/12 



$ 15/3 
$15/3 



$54/12 



$54/12 



_$288/72 
$266 /72 
$286/72 



$15/3 $54/12 $288/72 



$15/3 $54/12 $286/72 



$15/3 $54/12 $266/72 



ANADEX 9000 Sarlat 



$15/3 $54/12 $288/72 



$18/3 $66/12 $360/72 



$15/3 $54/12 $268/72 



$18/3 $66/12 $360/72 



RELOADS 

You SEND your used 

CARTRIDGES to us W« 

put OUR NEW INSER T J 

,n them 



$7/1 



$6 ee 2 or more 



$7/1 



$6 ee 2 or more 



$5ee3-11 $4ea 12 or more 
$6/1 $7 -2 or mow 

$20/1 $18 ee 2 or more 



$5ea 3-11 $4 ee 12 or more 
S5ea3-11 $4 •• 12 or more 



$6ee3-11 $5ee12ormore 
2 or more 



$8/1 



$7. 



$8/1 



$7 ee 2 or more 



$ 7/1 

$~7/1_ 

$7/1 



$6 ee 2 or more 



S6..2, 



$6 ee 2 or more 



$7/1 



$6 ee 2 or , 



17/1 

$7/1 



$6 •• 2 or more 



$7/1 



$6 ee 2 or more 
$6 ee 2 or more 



$8/1 



$7 ea 2 or more 



$7/1 



$6 ee 2 or more 



$8/1 



$7 aa 2 or more 



WORMED ABOUT ORDERING BY MAIL? Rates. We've been in business lor many years end can please the smallest and largest ac 
counts. You rocoree some oi me (meet ribbons available made ol our own exclusive IMAGE PLUS ♦ "" labric and carbon lilm Our rib- 
bon* HI your printer exactly. COMPARE, but BEWARE! We order all our competitor's products and are amazed at what we get We use 
the latest etate-ol tne-art production equipment and are blessed with a fine, dedicated stall We guarantee everything we meke 
ported. Our rtbbone era mod* frosh dally and our goal Is to ship your order within 24 hours Write tor our brochure and price list 

8£* 



NEW CARTRIDGES 

(trotr the various 

■^einu^eicturers SuOject 

to •va>'*et> | lity * 



$20/2 $57/6 $ 99/12 



$15/2 $42/6 $ 78/12 



$18/3 
$18/2 



$60/12 $346/72 
$51/6 $ 96/12 



S32 Each 



Spool 



Spool 



$36712 
$ 84/12 



S1673 $60/12 $346/72 



$18/3 



$21/3 



S60/12 

$72/12 



$348/72 



$420/72 



$18/2 $ 51 /6 $ 96/ 1 2 
$18/2 $51/6 S 96/12 



$27/2 $81/6 $162/12 
$24/2 $72/6 $144/12 
$15/2 $42/6 $ 78/12 



$16/2 $ 46/6 $_96/12 

$1572 $42/6 $ 7 8/12 

$15/2 $42/6 $ 76/12 

$22/2 $63/6 $120/12 

$14/2 $36/6 $ 66/12 



$18/2 $51/6 $ 96/12 



SILVER DOLLAR 

WIND 10 LOAD 
why DO WE SELL THESE' 
This is the type riobon you 
get il you order trom our lei 
io* advertisers We sen them 
tor less smce we make them 
ourselves Do you re*ny like 
ihe mess and inconvenience 

ol unwinding and dumping 

this type nbbon into a waste 
basket or out on a newspaper 
and/or winding it into your 
cartridge 9 We don t know why 
these are being sold Com 
puteis should simplify your 
lite, not make it more com- 
plex iusi to save a few pen 
nies You are welcome to 
order these il you cannot al- 
ford our EZ LOAD 1 " IN 
SERTS. RELOADS or NEW 
CARTRIDGES But BEWARE 1 
You now kno* how to avoid 
disappointment One more 
caution be sure to check the 
length of any nbbon BEFORE 
you Buy it For instance, an 
MX 100 nbbon should be 30 
yards long not 20 as in the 
MX 80 



J 12/3 $44/12 $252/72 



$11/3 $40/12 $228/72 



$12/3 $44/12 $252/72 



$15/3 $54/12 $288/72 



SENDCMECK MONEY ORDER OR C O D TO 

BCCOMPCO 

800 South 17 Box 246 
SUMMERSVILLE. MO 65571 

(417)932-4196 -152 

WE PAY UPS SHIPPING on PREPAID ORDERS 

please include street address tor ups delivery 

FOREIGN ADD t5% U S FUNDS 



«* See List of Advertisers on Page 145 
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Another unique feature is the 
COMM pseudo-op. This generates a 
comment block at the beginning of the 
object file. It lets you identify your ob- 
ject code by listing the first portion or 
by using a disk-zap utility. 

Additional Assembler Features 

Other features abound. The pro- 
gram has a built-in calculator that lets 
you convert from decimal to hexadeci- 
mal and back again. You can access 
this from the edit mode. 

Many assemblers' weak point is in 
printing out the source listing. Zeus in- 
cludes a configuration program; in ad- 
dition to modifying object code to 
work with different disk operating sys- 
tems, the ZCON program sets up 
printer defaults. You can specify the 
number of printed lines per page, 
number of characters per line, total 
number of lines per page, and whether 
to use a form-feed or line-feed top-of- 
form. You can output raw data to the 
printer at any time with the J com- 
mand. This lets you send special print- 
er codes even when you're in the mid- 
dle of an edit session. 

Labels have also been a sore spot in 
other assembler packages. Zeus allows 
every character and character case to 
be significant. This amount of flexibil- 
ity makes the code almost self-docu- 
menting. 

The disk operating system deserves 
some mention. You receive a mini- 
copy of MULTIDOS called *ZEUS* 
supplied on a single-density disk. It 
has the capability of operating in dou- 
ble-density mode with automatic 
hardware recognition and automatic 
density recognition. Table 3 shows the 
library commands that are available in 
*ZEUS*. 

Documentation 

If there's one area where Zeus could 
use some improvement, it's in the doc- 
umentation. The problem is more of 
quantity than quality. What is docu- 
mented is done fairly well. There's a 
section detailing each command oper- 
ation, a fairly large part on the pseu- 
do-ops, and a brief section explaining 
the creation of system disks and back- 
up copies. 

The problem is the lack of a tutorial 
to show you how to load the editor, 
enter a simple program, then assemble 
and list it. As it is, a user is on his own 
and has to sort through the command 



Command 


Description 


Append 


Add one file to the end of another 


Auto 


Automatic, invincible execution of a command or 




executable file on power-up 


Boot 


Reboot the system 


Clear 


Clear memory from 5200 to TOPMEM 


Clock 


Enable/disable screen clock 


CONFIG 


Set default drive attributes on power-up (stepping 




speed, density, and number of sides) 


Date 


Set date 


DIR 


Print disk directory (5 options) 


Dump 


Transfer memory to disk file 


Forms 


Set printout parameters 


Free 


List available disk file space 


Kill 


Remove a file from the disk 


LIB 


Print a list of the library commands 


List 


List a file on the video screen 


Load 


Load an object file from the disk to RAM 


Patch 


Modify a disk sector 


Print 


List a file to the printer 


Rename 


Change a file name 


RESTOR 


Recover a killed file 


SETCOM 


Set RS-232 parameters (Model III only) 


SETDIR 


Alter directory address marks (Model I only) 


Skip 


Read a 40-track disk in an 80-track drive 


Time 


Set time 


TOPMEM 


Set upper memory limit 


Verify 


Reread disk sectors for errors 


$ 


Duplicate a single file (similar to Copy) 




Table 3. *ZEUS* library commands. 



examples to understand all of Zeus' s 
features. I'm still not sure how to exit 
the program back to DOS without re- 
setting the computer. 

An index would also have been a 
useful addition, especially if the docu- 
mentation were expanded. Also miss- 
ing is a description of all the Z80 op- 
codes. The assumption is that the user 
is familiar with Assembly language and 
requires a fast, inexpensive, easy-to 
use-assembler. 

Conclusion 

Zeus is a system that should be used 
by people who require a powerful 
package to develop smaller programs. 
But for people who do a lot of sophis- 
ticated programming, it's limited 
without a macro capability, a built-in 
debugger, a direct assembly to memo- 
ry, tape input/output, or a cross-refer- 
ence facility. 

On the positive side, it doesn't re- 
quire disk overlays. The editor is very 
capable and as easy to use as a full- 
screen editor. Best of all, it isn't neces- 
sary to transfer it to another operating 
system because *ZEUS* is powerful 
enough all by itself. 



Zeus is a logical progression from 
the popular EDTASM program. If 
EDTASM satisfies your programming 
needs, you may want to check out 
Zeus. ■ 



This is TRSDOS 6.2 

by Hardin Brothers 

Logical Systems Inc. has made 
microcomputer history by pub- 
lishing the (almost) complete source 
code for TRSDOS 6.2 in three vol- 
umes. To my knowledge, this is the 
first time that the source code for a 
new and living operating system has 
been published for distribution. Of 
course, these books aren't inexpen- 
sive; at $99 apiece, they may have 
established a record as the most expen- 
sive paperback books ever published. 

Inside the Books 

For your $99, you get an 8'/2- by 
11 -inch book filled with commented 
TRSDOS source code. Volume 1, The 
System, contains the source code for 
Boot/SYS (or Lowcore), SYSO/SYS 
(also called Sysres, since it always re- 
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DISPLAYED VIDEO IS DRIVING DOWN 
PRICES ON DISKS! 



1 




FREE SHIPPING! 




TEC'S NEW HALF-HIGH 40 TRACK DISK DRIVE W/CASE 



<*$& 

#!$&& 

o* 



& POWER SUPPLY AT AN INCREDIBLE LOW PRICE! «. 

TANDON 40 TRACK TM-100-1 W/CASE & POWER SUPPLY $199.00 



$179.00!!!! 



"YOU CAN BUY THE REST BUT WHY NOT BUY ONE OF THE BEST!" 

TEAC's NEW SLIMLINE 40 TRACK W/CASE & POWER SUPPLY $205.00 

TEAC NEW SLIMLINE DOUBLE SIDED 40 TRACK W/CASE & POWER SUPPLY $240.00 

TEAC NEW SLIMLINE DOUBLE SIDED 80 TRACK W/CASE & POWER SUPPLY $285.00 

DUAL VERTICAL CASE & POWER SUPPLY TO ACCOMMODATE TWO SLIMLINE DRIVES. 
$10.00 ADDITIONAL WITH SINGLE DRIVE PURCHASE 

DV'S COLOR COMPUTER 1st DRIVE ONLY $329.00 

TWO DRIVE 5'/4" CABLE (FOR MOST COMPUTERS) $23.99 WITH GOLD PLATED CONNECTORS 

MODEL 1 DOUBLE DENSITY BOARD $85.00 

SANYO COMPUTERS 

MBC550-128K. 16BIT. ONE 160K DRIVE $779.00 MBC555 - 128K. 16BIT. TWO 160K DRIVES $999.00 

MBC550-128K. 16BIT. ONE 320K DRIVE $849.00 MBC555 - 128K. 16BIT, TWO 320K DRIVES $1299.00 

550 SYSTEMS - INCLUDE: MSDOS. WORDSTAR, CALCSTAR. & EASY WRITER SOFTWARE PACKAGES 
555 SYSTEMS - INCLUDE: MSDOS, WORDSTAR, CALCSTAR. EASYWRITER. SPELLSTAR. MAILMERGE. & 

INFOSTAR SOFTWARE PACKAGES 

COMREX AMBER MONITOR 9" $89.00 

HAYES SMART MODEM 300 BAUD $210.00 1200 BAUD $485.00 

ONE YEAR WARRANTY ON TEAC DRIVES/ 180 DAYS ON TEC & TANDON 



PRINTER PRICES 



< 



WE'RE NOT GOING TO MAKE YOU CALL FOR PRICES - HERE THEY ARE IN BLACK AND WHITE!!! 



EPSON 

RX80 W/GRARHTRAX PLUS $275.00 

RX80 FT W/GRAPHTRAX PLUS $349.00 

RX100 W/GRAPHTRAX PLUS $495.00 

FX80 W/GRAPHTRAX PLUS $495.00 

FX100 W/GRAPHTRAX PLUS $699.00 

LQ1500 200 CPS COMING SOON 
YEAR WARRANTY ON EPSON PRINTERS 



PR5000 DAISYWHEEL 15 CPS $395.00 

PR5500 DAISYWHEEL 20 CPS $595.00 

GEMINI 10X $275.00 

GEMINI 15X $395.00 

CITOH PROWRITER 8510 $355.00 

DWP210 $559.00 

DAISYWHEEL II $1149.00 



PRINTER CABLE 10 LONG W/GOLD PLATED CONNECTORS STARTING ATS25.99 




D ISPLA YED 

Tdeo 




IMMEDIATE DELIVERY 

180 Days Parts and Labor Warranty 
DEALER INQUIRIES INVITED 



Visit our two WE CARRY TRS80 & SANYO COMPUTERS 

retail locations at: 

886 Ecorse Road 

Ypsilanti, MI 48197 

(313) 426-5086/(313)482-4424 

or 

1 1 1 Marshall Street TO ORDER: Call (313) 426-5086 or (313) 482-4424 or (517) 542-3280 

Litchfield, MI 49252 (5 1 7) 542-3939 (5 1 7) 542-3947 

(5 1 7) 542-3280 OR WRITE: DISPLAYED VIDEO 111 MARSHALL ST., LITCHFIELD, MI 49252 

(51/) D4Z-0!# 3 V AUTHORIZED SANYO DISTRIBUTOR 'TRS-80 ia a trademark of the Tandy Corporation 

(5 1 7) *>4Z-0"4/ ^62 Price* & Specification* •ubfrrl to change without notice 
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mains resident in memory), SYS1 
through SYS5 and SYS9 through 
SYS 13. 

Volume 2, The Libraries, contains 
the source code for the library 
modules SYS6 through SYS8. The 
final volume of the series, The 
Utilities, includes the source code for 
almost all the TRSDOS 6.2 utility pro- 
grams. 

The three books contain almost 
1,100 pages of code, enough to keep 
even the most dedicated hacker read- 
ing and studying for weeks (if not 
months). LSI prefaces each program 
with a short description of the func- 
tions it performs. The comments 
throughout the books are sufficient to 
give an experienced Assembly-lan- 
guage programmer all the information 
necessary to understand the programs' 
inner workings (see the sidebar for ex- 
amples from The Source). 

Who Needs These Books ? 

Why would anyone want such a set 
of books? Radio Shack has exorcised 
most of the Model 4 TRSDOS bugs. 
And it's unlikely that anyone will use 
them to type in all 1 , 100 pages of code, 
since TRSDOS is distributed free with 
the Model 4/4P. 

I think there are four important and 
likely uses for these books. First, some 



The Source:TRSDOS/ 
LS-DOS 6.2 

***** 



Logical Systems Inc. 
8907 North 55th St. 
P.O. Box 23956 
Milwaukee, WI 53223 
800-248-3535 

Volume 1-The System $99 
Volume 2-Tbe Libraries S99 
Volume 3-The Utilities $99 
$249 for aB three 



WeU written? 


* * * * ft 


Organized? 


• •*•• 


Thorough? 


• • **iV 


Readable? 


• •••• 



people (including me) just like to 
know how things work. How does 
TRSDOS handle the video screen? 
How does it parse commands? What 
happens when you install Memdisk? If 
you want to know as much as possible 
about your Model 4, these books 
(along with Radio Shack's Model 4 



Technical Reference Manual) will pro- 
vide all the answers a software nut 
could want. 

Also, you may want to make modi- 
fications to your personal copies of 
TRSDOS 6.2. Perhaps you'd like to 
reinstate the Kill command, in addi- 
tion to Remove, from DOS Ready. 



Notes from The Source 



by Hardin Brothers 

Below are some examples of tech- 
nical information culled from The 
Source. Be sure to make any DOS 
changes to a back-up copy of TRS- 
DOS 6.2 — not an earlier ver- 
sion — and to test the new code thor- 
oughly before moving it to your 
working copies of the system disk. 

• Generally, when you reboot your 
computer, programs in memory are 
left untouched. However, TRSDOS 
6.2 uses memory locations 4300- 
43FF hexadecimal for the boot rou- 
tine, so any program in that area will 
be destroyed. 

• If you want to change the defini- 
tion of the function keys temporarily 
while in Basic, the lookup table with 
their values is stored from 0918- 
091 D hexadecimal. The values are 
stored in this order: Fl, shift Fl, F2, 
shift F2, F3, shift F3. You can 
POKE new values into those bytes, 
but the computer will react improp- 
erly if you try to define them as 
break, clear, or pause. Be sure to 
reset the values (or reboot the com- 
puter) before using any program that 
expects the F keys to have their orig- 
inal values. 

• You need change only a single 
byte in SYS 1 /SYS to activate the Kill 
command in addition to Remove. LIB 
will also add Kill to the list of com- 
mands it displays if you add this 
patch: 

PATCH SYSl/SYS.LSIDOS (X'2054' = 
"K") 

• The ©DATE SVC puts a for- 
matted version of the system date in- 
to a buffer as MM/DD/YY. But it 
also returns with DE pointing to 
DOS's date storage area (DATES + 0) 
at 0033H. The storage scheme is: 

DATES + Year (80-87) 
DATES + 1 Day of month (1-31) 
DATES + 2 Month (1-12) 
DATES + 3 Bits 0-7 of day of year 



DATES + 4 Bit = bit 8 of day of year 
Bits 1 -3 contain day of week 
Bit 7 set if leap year. 

You could find the day of the week 
in Basic with this code: 

D<7o = ((PEEK(&H0O37) OR 14)/2) - 1 
DS= "SunMonTueWedThuFriSat" 
DAYS = MIDS(D$,D»7o*3+ 1,3) 

• A 2-byte patch space in the 
Click/FLT makes the audible click 
operate on a specific key or set of 
keys. The current code is: 

2474 0000 1060 DW 00 

2476 201C 1070 JR NZ.LEAVE 

Also, at 247A hexadecimal, the com- 
puter loads the D register with the 
click tone value and the E register 
with the click duration value. One in- 
teresting change to the Click/FLT is 
the following: 

.Patch to CLICK/FLT.FILTER to make 
a beep only when <ENTER> is pressed. 

First, test for <ENTER> 
X , 2474 , = FE0D 

Set the duration 
X'247B' = 80 

Set the tone 
X'247C = FF 

.End of patch. 

• I dislike the Device command de- 
fault parameters. I'd much rather 
have the D parameter default to off 
and the B parameter default to on. 
This patch will accomplish that: 

.Patch to change DEVICE defaults 
.Apply to SYS6/SYS.LSIDOS 

Position to DEVICE Library command 
L61 

Set D parameter to default D = N 
X'241E*=00O0 

Set B parameter to default B = YES 
X'2580* = FF FF 

End of patch 
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The necessary bytes are sitting in 
SYS 1 /SYS' s command interpreter 
just waiting for you to change a NOP 
byte (00H) to a 'K'. Perhaps you want 
to add your own supervisory calls 
(SVCs) or to determine the side effects 
of some of the present calls. 

You could also use the books to cre- 
ate your own utility programs that 
take full advantage of what's already 
available with TRSDOS 6.2. I've ex- 
perimented recently with a split-screen 
terminal program for CompuServe's 
CB simulator and special-interest 
group conference areas. I have the 
program working as a dumb terminal, 
but I'd like to add a capture buffer 
and other enhancements found in the 
TRSDOS's COMM program. After 
studying COMM's source code, I've 
found ways to add the appropriate 
patches. I won't have to spend hours 
duplicating work that has already been 
done. 

Probably the most important pur- 
pose of the source code is to give soft- 
ware developers all the help they need 
in producing packages for the Model 
4. The inner workings of the Model 
I/III ROMs have been published for 
several years, and have helped soft- 
ware writers considerably. A similar 
knowledge of the Model 4's operating 
system may (hopefully) lead to more 
interesting and complex programs for 
the Model 4. 

What's Missing 

While these books are nearly com- 
plete, they do lack a few things. When- 
ever the code accesses the Model 4's 
hardware directly through a port, the 
source lines have been omitted but the 
object code is still present. I assume 
these omissions are made to respect 
Tandy's proprietary secrets and also 
to mark those sections of code that are 
specifically Model 4-oriented (the same 
code is essentially used for Model II, 
12, and 16 computers, and LSI hopes 
that other manufacturers of Z80 com- 
puters will begin using TRSDOS 6.2 as 
well). 

Also, the source code for the Help 
utility is missing from Volume 3. This 
last omission is unfortunate, because 
the Help command can be expanded 
to cover topics in addition to DOS 
commands. As of this writing, neither 
LSI nor Tandy has explained how to 
do so (I will, however, discuss how to 
add new Help files in a future install- 



ment of The Next Step). 

Missing from these books, of course, 
is the Basic source code (owned by 
Microsoft) as well as MODELA/III, 
probably for similar reasons. But I 
didn't expect to see either of those. 

These books are an important addi- 
tion to my library. It's one thing to be 
able to use TRSDOS 6.2 well: know- 
ing the source code gives you more in- 



sight into how programs interact with 
the system. Whether you should buy 
one or all of these books depends on 
your level of sophistication and the 
complexity of the programs you need 
to write. The wealth of information in 
these books isn't difficult to find or 
understand, but their cost may deter 
many hackers and hobbyists from buy- 
ing them. ■ 



r<? CDMBfll 
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For 16DO yeai 
greatest thinKers of mankind. 

Nnu in the computer ai 
challengi 



Chess has challenged the 



»n ine cam 

s of all, canDut 
move cont'tnunuslifBcrD 
its oun accgcafrdEiuEiJnder 



the 



itest intellectual 



age comes me greatest tnielteciua 
jBctivatec chess, with chess men that 
w\B chess board, each seemingly on 
upur direction. 

CCMBAT CHESS is a totally new dimension both in chess and 
in compj^jrr games. Dne/arkanu number of chessmen can move 
continuously across Ae -chess board each capturing or 
destroying the enww^autc naticailu upon contact according to 
the rules of chess You calk /program uour armu each time uour 
turn comes a^unO and tk en uou are the observer as uour 
orders are carried out J 

Did chrias P' a H a P ar ^ ' n the greatness of anu of the 
statesmen of Historu? Perhaps uou can discover the ansuter 
an uour computer. Sharpen uour intellect with COMBAT CHESS. 

Hie gu£j*BT\tee thar Combat Chess is the most exciting, the 
mast inteilef&tuallu stimulating, the most interesting and the mast 
fun of ant | compu ter came uet invented or uour moneu bach. 
The game is fast or slam according to uour desire and will liven 
up anu partu — Requires two plauers who challenge one 
another. 



DOTB@@y£ir@B^ wvm mw 



$m <*■< 



pric« •69.50) 



Plus shipping - Visa/Mastercarj££Qfr s OK - Model III at 

PROGRAMMERS — Me Hill pey^lStJO^f^-'the beet. 7n\dyr opinion. iap>oveeent 
of the Combat Chess disk plus wcm^iT pay a 2'/, rB^Bitry f oV • period bt 2 years 
on any such improvements sold by usv. Me niII also pay >Me sa*e^anounts for 
the best anti-pirate protection scheme^submitted. All submissions aust be in 
our office before May 1. 1985. Those accepted "ill he notified within 45 deys. 
All submittals Mill receive a reply. Those washing \o "submit a program for 
consideration may add (5.00 for a source code tJrtk listing the program in 
basic. No purchase is required. 

111010 115115101 111 •>.. *« « 

Trona. Calif. 93562 (B19) 37E-S3SS 



See List of Advertisers on Page 145 



80 Micro, January 1985 • 161 



PROJECT 80 



Listing continued from p. 130 



7167 E5 


81878 


PUSH 


HL 


1 THE STACK 


716 8 D5 


81888 


PUSH 


DE 




7IC9 3E18 


01090 


LD 


A.10H 


; WRITE BYTE TO ENABLE 


7i6B D3EC 


01100 


OUT 


(TRSEXE) ,A 


1 EXTERNAL I/O ACCESS 


7I6D DBEI 


01110 


IN 


A.(TRSRDI) 


; CHECK IF EXT. I/O INT. 


7f6P CB5F 


01120 


BIT 


3, A 


)I/0 BUS INT. 7 


7171 281A 


01130 


JR 


NZ, MOTHER 


;IF NOT LOW, NOT HERE 


7873 3F.BC 


01140 


LD 


A.0CH 


j GET OCW2 WORD FOR 825 9A 


7075 D328 


01150 


OUT 


(PICP0) ,A 


1 CHECK FOR 82 5 9A INT. 


7177 DB28 


01160 


IN 


A,(PICP0) 


|GET B25 9A RESPONSE BYTE 


7i79 CB7F 


01170 


BIT 


7, A 


, INTERRUPT GENERATED? 


7i7B 281B 


81188 


JR 


Z,NOTHER 


; IF ZERO, NOT BY 8259A 


7I7D CB27 


01190 
01200 


SLA 


A 


(ELSE, DOUBLE VALUE TO 
; GET TABLE OFFSET 


Tit E66F 


01210 


AND 


0FH 


;CLEAR UPPER BITS 


7181 218078 


01220 


LD 


HL.INTTBL 


; POINT TO TABLE BEG. 


7084 5P 


01230 


LD 


E.A 


;PUT OFFSET INTO E REG. 


7085 1600 


01240 


LD 


D,0 


; CLEAR UPPER OFFSET BYTE 


7087 13 


01250 


ADD 


HL,DE 


j POINT TO INT. VECTOR 


7088 SB 


01260 


LD 


E.(HL) 


|GET LOW ADDR. BYTE 


7089 23 


01270 


INC 


HL 


(INCREMENT TABLE PTR. 


70 BA 56 


01280 


LD 


D, (HL) 


|GET HI ADDR. BYTE 


70BB EB 


01290 


EX 


DE.HL 


j PUT ADDR. INTO HL 


708C E9 


01300 
01310 | 


JP 


(HL) 


lJUMP TO THE SERVICE ROUT 


708D 21BC70 


01320 HOTHER 


LD 


HL, RESTOR 


;GET RETURN ADDRESS OF ISR 


7090 E5 


01330 


PUSH 


HL 


» AND PUT IT ON THE STACK 


7091 2A1270 


01340 


LD 


HL, (VECTOR) 


;GET ISR ADDRESS 


7094 E9 


01350 


JP 


(HL) 


(CALL THE SUBROUTINE 


7095 1825 


01360 
01370 i 


JR 


RESTOR 


(RESTORE STUFF AND RETURN 


7097 3A1170 


013 80 TIMERS 


LD 


A.(TIHCNT) 


(GET INT. COUNTER 


709A 3C 


01390 


INC 


A 


(INC. IT FOR THIS ISR 


709B 321170 


01400 


LD 


(TIMCHT) ,A 


(SAVE IT AGN IN MEM. 


709E FE04 


01410 


CP 


4 


(HAVE FOUR INTS. OCCRD? 


78A0 200E 


01420 


JR 


NZ.DONE 


(IF NOT, FINISH UP 


70A2 AF 


01430 


XOR 


A 


(ELSE, CLEAR COUNT 


7BA3 321170 


81448 


LD 


(TIMCNT) ,A 


; IN MEMORY. 


70A6 3A1B70 


01458 


LD 


A.(PPIBYT) 


(GET 8255A PORT B BYTE 


70A9 C610 


01468 


ADD 


A.10H 


(INCREMENT LED DISPLAY 


70AB 321878 


81470 


LD 


(PPIBYT) ,A 


(SAVE BACK IN MEM. 


70AE D321 


81488 


OCT 


(PPIB) ,A 


(WRITE TO 8255A PORT B 


7BB0 3E24 


81490 DONE 


LD 


A.24H 


(GET LOW TIMER COUNT BYTE 


70B2 D324 


81588 


OUT 


(PITT0) ,A 


(WRITE TO TIMER 


70B4 3EF4 


81510 


LD 


A.0F4H 


(GET HIGH COUNT BYTE 


70B6 D324 


01520 


OUT 


(PITTO) ,A 


(WRITE TO TIMER B 


78B8 3E28 


01530 BADINT 


LD 


A.20H 


(GET EOI (0CW2) CMD 


70BA D328 


01540 


OUT 


(PICP0) ,A 


(SEND TO 825 9A 


70BC 3E08 


01550 RESTOR 


LD 


A.08H 


(WRITE BYTE TO ENABLE 


70BE D3E8 


01560 


OUT 


(TRSINE) ,A 


( EXTERNAL I/O INTS. 


70C0 Dl 


01570 


POP 


DE 


(RESTORE REGISTERS 


70C1 El 


01588 


POP 


HL 


( FROM STACK 


70C2 Fl 


01590 


POP 


AF 




70C3 FB 


81600 


EI 




(RE-ENABLE INTERRUPTS 


70C4 C9 


01610 NOPROC 


RET 




(DONE - RETURN FROM INT. 


7014 


01620 


END 


INTRPT 




08808 TOTAL 


ERRORS 








25366 TEXT 


AREA BYTES LEFT 







Continued from p. 130 

one second. Using the 250 KHz clock, 
the count value of 0F424H results in a 
0.25 second interrupt. Thus, four in- 
terrupts will make up one second. 

The last part of the initializing sec- 
tion requires that we provide for other 
system interrupts. If an interrupt oc- 
curs and we determine that the 8259A 
is not interrupting the CPU, we jump 
to the location otherwise used by the 
system. 

The interrupt service routine first 
sends a OCH (OCW3) to the 8259A, 
telling the 8259A that we are using 
polled mode. The 8259A then sends 
back a value which tells the interrupt 
status of the controller (see Fig. 12). If 
the high bit (bit 7) is set, an interrupt is 
being requested. Also, if an interrupt 
is being requested, the highest priority 
interrupt is given by the lower three 
bits of the returned byte. This can be 
used as an offset into a table of ISR 
addresses (by first shifting it left 
one bit). 

If the ISR determines that the 
8259A did not generate the interrupt, 
sen ice is passed to the normal TRS-80 
ISR. Otherwise, it adds one to its 
count variable. If four interrupts have 
not yet occurred, it finishes by restart- 
ing the 8253 timer for another 0.25 
second interrupt, and issuing a non- 
specific end-of-interrupt (EOI) to the 
8259A via OCW2. This tells the 8259A 
that servicing is complete for the inter- 
rupt just required, and to arbitrate the 
next lower priority interrupt. Inter- 
rupts are then re-enabled, and a return 
from interrupt is executed. 




Happy! YES. AND YOU CAN BE TOO. He is moving to the NEW. . . 

trs — IBM AT 

APPLE — ► IBM PC/XT, Jr. 

or 
CP/M — ► Tandy 2000 
DISK TRANSPORTER IBM PC -*■*- Tandy 2000 

They are all moving Important Data FILES ft PROGRAMS to their new computers. 
The FILE TRANSFER PROGRAM (FTP) has conversion utilities and a small adapter for 
direct connection. CALL U S. Our FTP can make you happy too. 

I IBM AT VERSION (WITH SPECIAL CABLE) $224.95 I 

FTP IBM PC/XT OR T2000 $129.95 I 
STATE COMPUTER MODELS WHEN ORDERING CA RESIDE NTS 6.5% $3.00SftH I 



1400 COLEMAN AVE.. SUITE C-18 SANTA CLARA CA 95050 
TELEPHONE (408) 98*0164 PHONE ORDERS S 



■PERSONAL 
■■COMPUTER 
■■■PRODUCTS 6 

BMTRSaO&lANT* APW.CP/MAWRESPECTttLYI*^^ TAf^Y CORPORATE AWE COMK/W INC DG.WI WStARCH. WC 
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If the interrupt was found to occur 
from the 8259A, the count variable is 
cleared (to count four more interrupts) 
and the LED display is updated by 1 . 
The service routine then finishes by re- 
starting the 8253 timer and sending the 
E01 to the 8259A. 

Conclusion 

The 8259A interrupt controller pro- 
vides more capability and flexibility 
than described here. If you are inter- 
ested in some of the more advanced 
applications of the device, you should 
get a copy of the data sheet from Intel 
Corporation. Since the G.P. I/O 
board project also comes in CMOS 
(which may be important to some of 
you), the 8259A is available in CMOS 
from the same sources. ■ 

1983 Intel Microprocessor and 
Peripheral Handbook 
Intel Corporation 
Literature Department 
3065 Bowers Avenue 
Santa Clara, CA 95051 

Zilog 1981 Data Book 
Zilog, Inc. 
10340 Bubb Road 
Cupertino, CA 95014 

1982/83 Mostek Z80 Designer's Guide 
Mostek Corporation 
1215 West Crosby Rd. 
Carrollton, Texas 75006 



Write to Roger C. Alford at Wash- 
tenaw Digital Systems, P.O. Box 
2014, Ann Arbor, MI 48106. 







Part 




Quantity Description 


Distributor 


Number 


Price 


1 8259A Programmable interrupt controller 1C 


JDR 


8259 


6.90 


1 7416 Hex inverter/drivers (O.C.)(TTL) IC 


JDR 


7416 


.25 


1 74LS04 Hex inverter (LS TTL) IC* 


JDR 


74LS04 


.24 


1 74LS138 3-to-8 decoder IC* 


JDR 


74LS138 


.55 


1 74LS32 Quad 2-input OR gate (LS TTL) ICt 


JDR 


74LS32 


.29 


1 100 ^F/35 V electrolytic capacitor (PC mount)* RS 


272-1028 


.79 


1 . 1 uF/50 V disc capacitor* 


RS 


272-135 


.25 


6 Ik ohm resistor (Vi watt)t 


RS 


271-1321 


.08 


1 74LS74 Dual D-type flip-flop(LS TTL) IC§ 


JDR 


74LS74 


.35 


1 8 pos. terminal block* 


RS 


274-687 


1.89 


1 2 pos. terminal block* 


RS 


274-656 


.60 


1 . 1 " matrix grid prototype board 


RS 


276-158 


1.95 


1 40 pos. cable header (WAV)Q 


DK 


R241-ND 


5.58 


1 40 pos. ribbon cable edge connector Q 


DK 


R503-ND 


3.80 


1 40 pos. ribbon cable socket connector 


DK 


R306-ND 


3.73 


1 ft. 40 cond. ribbon cable Q 


DK 


R007-ND 


0.00 


1 50 pos. cable header (W/w> 


DK 


R247-ND 


6.93 


I 50 pos. ribbon cable edge connectorn 


RS 


276-1566 


4.95 


1 50 pos. ribbon cable socket connection t 


DK 


R307-ND 


4.65 


1 ft. 50 cond. ribbon cable t 


DK 


R008-ND 


0.00 


* Stand-alone board only. 








t Reset circuitry use and Model III/4 required. 








t One less required for general-purpose I/O board addition. Two less required if reset 


cir- 


cuitry not implemented. 








§ Use with reset circuitry only. 








Q Model 1 only. 








n Models 1 1 1/4 only. 








Addresses: 








JDR Microdevices, 1224 S. Bascom Ave., San Jose. CA 95128. 800-538-500 or 408-995-5430 


outside California; 800-662-6279 within California. 








Radio Shack (RS) National Parts Division. 900 East Northside Drive, Fort Worth, TX 76102, 


817-870-5662. 








Digi-Key Corp. (DK), Highway 32 S., P.O. Box 677, 


Thief River Falls, MN 56701 


800- 


346-5144 or 218-681-6674. 








Table 1. Parts list and ordering information. 








ISODVILL 
DIET 
PROGRAM 

$69.95 



"TAKE A BYTE" 

MAINTAIN. LOSE OB GAIN WEIGHT 
i the NODVILL DIET PROGRAM Tike i Byte 
a TRS-S0 DO Disk M I III '4 or PC Compatible 



Calculate caloric and nulnfva loo-, intake 
Evaluata nutritive .alue ot your diet 
Compare daily diet to individual RDA Chan 
Create personal iied daily meals and menus 
Plan waned daily menus based on sound nulnl 
Save records ot daily meals and menus tor lull 
Print nutrition charts food. meal, menu and gi 




Take a Byte 



I Modular BASIC Progri 



MAIN Program Menu 
ill Recommended Daily Dietary Allowance (HOA) CHART 
(21 733 Expandable Random Access FOOD LIST Data File 
3' 28 Nutritional MEAL LIST Data File Eiamples 
141 7 Balanced OAILV MENU LIST Data File Eiamples 
:5! GROCERY LIST Program Module 
,6; 25 Page USER S MANUAL including Charts and tables 



If w » NODVILL Soltware _^_ 

CT~j 24 Nod Road mia^. 

W Ridgelield. Conn. 06877 ^^* 

*• See List of Advertisers on Page 145 



M 



IEEE-488 TO TRS-80* INTERFACE 

Everything needed to add powerful 
BASIC GPIB-488 controller capability to 
TRS-80 Model 1, 3 or 4, Level 2 or DOS 
with a minimum of 16K. 



49I-90C 

For Model 3 or 4 

Opera-lion 41**08 

For Model 1 
Operation 




Model 448-80B or 488-80C Price: $425 

+ shipping, insurance 4 tax 

WHEN ORDERING SPECIFY DISK OR TAPE 

SCIENTIFIC ENGINEERING 
LABORATORIES 

11 Neil Drive • Old Bethpage, NY 11804 
Telephone: (516) 694-3370 

'Trademark ol Tandy Corp 

There is no affiliation between Scientific 
Engineering Laboratories and Tandy Corp or 
Radio Shack 



• 203 



SEND AND RECEIVE 

MORSE CODE 

•TRIPLE SPLIT SCREEN 

•SPEED: 1-200 WPM 



This 4.5k assembly language program runs 
on your TRS-80™Model I, III, or 4. The 
decoded Morse Code is displayed on the 
screen and may be printed. The keyboard 
buffer is active while either sending or 
receiving. The output is either tone or keyed. 
I/O is via the cassette interface. The pro- 
gram runs from tape or disk (TRSDOS 2.3 or 
1 .3). Use it "on-the-air" or for code practice. 

satisfaction guaranteed or youi money back 
Cassette with booklet only $19.95 postpaid. 

ROGO Computer Products 

4752 DeBeers Drive M3 

El Paso, Texas 79924 
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Call ELEK-TEK for 



UNBELIEVABLE PRICES!! 



,IL 



•«/ 



PRINTERS 



80 COLUMN 

GEMINI 10X 120 CPS 250.00 

DELTA 10 160 CPS 360.00 

RADIX 10 200 CPS 530.00 

132 COLUMN 

GEMINI 15X 120 CPS 365.00 

DELTA 15 160 CPS 490.00 

RADIX 15 200 CPS 630.00 




NEW Letter Quality 
PRINTER 

POWERTYPE Better Quality 18 c.p.s. 325.00 



CBS622 10 ft. 36/36 pin nandard parallel 

CBS609 S ft 36/25 pin panlM tor MM 

CBS618 6 (I, 36/16 pin parallel tor TI-99MA . . 
CB5628 10 ft 25 pin atandard RS-232 (fully loaded) 
CB5620 6ft parallel tor THS 10 Modal i-lll-l V 
RS1Y RS-232 Y cable tor TI-94/4A 



Cables tor Ep*on 



32.00 
MOO 
2100 
2i00 

not 

2i00 



CAHOCO G 

APPLE OUMPLING GX 

GRAPPLEB PLUS 

Buffered H6K< GRAPPLER PLUS 

Elek-Teii Dun Coven ■wiao'e !©• 



Gemini mode it 



CALL TOLL FREE 800-621-1269 EXCEPT Illinois, Alaska, Hawaii 



coxp.accts wvmm. at two. oit.no ■>— ■ u» * t o— a» —■ » ato 

(AK. M, PJL. MMMH ADO 11000 PatST ITEM] • 1 .OO _. ail 
CATAUJS). BCTVMM POLICY: ■iplin I mnh, fcjr Mmr 

QUALITY AMD COMPLETE 



, Ore, Pan. Oact (I ■•« i 



C| CL£ e>^r*Ca7aW in*- 6557 N Lincoln Av« Chicago II 60645 

r< cry i cr\ ,inc (100)621 m* (juTo?- >66g ^--.u 




INCREASE 

KEYBOARD 

SPEED! 

Tandy gave Hyperlyper ■ a 

* * * * rating for both 
TRS-80 and Tandy 2000 

for only $29.95 

* Hyperlyper * is a 
complete software 
program designed to 
help you make the I 
most of your computer. ,i 

* Hyperlyper* is under 
your control — you go 
at your own speed; not at the 
program's demand. 

* Hyperlyper' uses real words, 
sentences and paragraphs, not 
nonsense syllables. 

* Although the text is light-hearted 
and fun, Hyperlyper " is not a game, 
but a serious, powerful teaching 
tool. 

* This is a flexible, easy-to-learn and 
easy-to-use program that can aid 
everyone from novices to advanced 
typists. 

SEE YOUR DEALER NOW 
STANDARD SOFTWARE 

Suite 1600 - 121 S.W. Salmon St. 
Portland. Oregon 97204 
(503)227 0008 
TRS-80 & Tandy 2000 registered trademarks of Tandy. 




UNITED SOFTWARE ASSOCIATES 
ULTRA TERM 

VERSION 2 



-NEW- 
AUTO LOGON 



ITM 



-NEW- 
MACRO KEYS 




Ultia Term Version 2 is the most powerful communicalions programs available for the TRS-80. The package includes a lull featured terminal program, a self 
relocating host program and hex conversion utilities loi bulletin boaid downloading, all al puces foi lower than competing programs with less features Ultra Term features 
include Ultra Term supports auto dial modems with an easy to use dial menu capable of supporting any modem that accepts dial commands Irom the RS-232 port or by 
pulses on the RTS line or cassette port, including the Radio Shack Modem 2. Hayes Smaitmodem or the Lynx auto dial Ultra Term Version 2 is the only terminal program for 
the TRS-80 that has a true prompt controlled auto logon feature. This feature when used in conjunction with our autodial feature allows the user to issue a single command to 
select a number to dial set HS 232 parameters dial the number wait foi prompts form the system being called and answer multiple questions to sign the user onto the 
system being called No other TRS-80 terminal program available offers this power and versatility Ultra Term is the only program that offers a direct to disk file transfer mode 
that allowsfullcontrol Irom the transmitting computer, and unattended operation at the receiving computer This gives you the ability to transfer multiple files or an entire 
disk with no one present at the receiving computer Ultra Teim has an exclusive split screen feature that allows simultaneous twoway communications Irom terminal mode 
and supports line printers with a IK print butler Ultra Terms universal ASCII format file transmission supports delays between characters or between lines, aswellas 
prompt controlled transmission tor compat ability with virtually all systems A counter continuously displays the amount of free memory remaining whenever the buffer 
is in use Ultra Term will run on a Model 1 or Model 3 TRS-80 disk system with any TRSDOS compatible operating system (RS-232 and Modem required) 

Ultra Term Version 2 retail price 579.95 
Upgrade lor current Ult'a Term Version 1 owneis S24.95 iFor Upgrade, you must return your original version 1 disk I 



INFOEX-80 

BULLETIN BOARD SYSTEM 



The INFOrmation Exchange bulletin board program contains all the software necessary to set up your own bulletin board service or message center 
The lnfoex-80 software automatically answers phone calls, displays a logon message or bulletin, allows callers to enter and retrieve messages and 
lets users chat Hype) directly to the system operator lntoex-80 supports uploading and downloading in both universal ASCII format and Ultra Term 
disk file transfer format for accurate and fast file transfer lnfoex-80 allows users to apply for individual passwords so private password protected 
messages can be left to- any user The system also keeps track of the number ol times each use has accessed the system as well as the highest mess 
age each user has read and advises each user when messages have been left for them The programs requires a TRS-80 Model 3 (or Model 1 with double 
density adapter), 2 disk drives. 48K ram RS 232 interface, any auto-answei modem and a DOS that supports the CMO Doscmd" from BASIC (Any DOS 
but TRSDOSi 



24 HOUR BBS (305) 842-2687 



.-211 UNITED SOFTWARE ASSOCIATES 

734 FLAMINGO WAY - NORTH PALM BEACH. FL 33408 



PHONE ORDERS <305i 965-3496 




New dimensions in Bible study. 




Requires APPLE II + . I 
and compatibles, TRS80, 
CP/M 2.2 (Z-80), KAY PRO, 
OSBORNE. COMMODORE 64, 
£100. 




WORD 

x)cessor 

e KJV Bible on 

99.95* 
X)PICS 



For information contact: 

Bible Research Systems 

9415 Burnet, Suite 208 

Austin, TX 7H7SS 

(512)835-7981 

'Software for personal Bible study." 



LOGICAL SYSTEMS 



1984 Logical Systems. Inc. 



UX)S 




LDOS Quarterly back issues are 
available, and are highly recom- 
mended for all LDOS users 



JOGICAL 
SYSTEMS 
/a 



NOW 
AVAILABLE 



LSI CATALOG 



]§r mm 

'Ooo- 




Write or call for our 
FREE CATALOG. 



Tne TRSDOS/LS-DOS 6.x operating system assembled source 
listings, with comments, as implemented on the TRS-80 Model 4 
The three volume set of over 1000 pages, covering the SYSTEM, 
the LIBRARIES and the UTILITIES is priced at just S249 for the com- 
plete set, or S99 individually. 

Shipping and Handling NOT INCLUDED 



TOLL FREE ORDERLINE (800) 248-3535 

8970 North 55th Street / P.O. Box 23956 / Milwaukee. Wl 53223 



^ See Lisl ol Advertisers on Page 14b 
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NEW PRODUCTS / edited by Robert Mitchell 



Fast Impressions 

The Fastext-80 bidirec- 
tional dot-matrix printer 
($259) gives you 80 charac- 
ters per second (cps) print 
speed at 10 characters per 
inch (cpi), and features a 
line buffer and six-pitch ca- 
pability. 

Fastext-80 also features a 
self-test switch, an 80-char- 
acter print line, emphasized 
or elongated print, and bit- 
image graphics. 

Pitches include pica, elite, 
condensed, and enlarged 
printing. The printer sup- 
ports the 96-character ASCII 
set and can print in seven 
languages. 

Its drop-in cassette ribbon 
has a life of one million 
characters. Fastext-80 comes 
with friction feed and a 
Centronics parallel inter- 
face. A tractor feed is also 
available. 

For more information 
contact Smith-Corona at 65 
Locust Ave., New Canaan, 
CT 06840, 203-972-1471. 

Reader Service ^ 563 



Running with IBM 

Xcalibur, from Micro 
Projects Engineering Inc. 
(3951 Higuera St., Suite B, 
Culver City, CA 90230, 213- 
202-1865), lets you run IBM 
PC software on the Models 
I, III, 4, and 4P. 

This enhancement board 
gives you PC compatibility 
to run MS-DOS2.il, Mul- 
timate, dBase II, WordStar, 
MultiPlan, and other pop- 
ular IBM PC software pack- 
ages. Add a monochrome 
monitor card ($199.95) and 




The Fastext 80 dot-matrix printer prints seven languages in six type fonts. 



128K RAM ($198) and you 
can run Lotus 1-2-3. 

Xcalibur comes with an 
IBM-compatible bus con- 
nector for use with IBM ex- 
pansion cards and MS- 
DOS. It installs easily 
through cable connections 
inside your computer. 

The Xcalibur board is 
$495, and includes an MS- 
DOS disk. Additional RAM 
chips and other upgrade 
hardware are also available. 
Reader Service ^ 552 



Adventures 
In Pbdeland 

Pixie Quest, from Seal 
Software (4 White Birch 
Court, Turnersville, NJ 
08012, 609-228-6169), is a 
Model I adventure game 
that leads you and your 
companions on a trip 
through the forbidden wood 
of Balmar and the caves of 
the evil sorcerer, Tralon. 

Your goal is to return 
pixies Frolie and Pixel to the 



village of Brahlee. Along 
the way you'll find trea- 
sures, puzzles, and meet 
jabowockies, ogres, and evil 
gremlins. 

The game's parallel paths 
through the woods mean 
that failure to solve a puzzle 
won't leave you at a dead 
end. Ultimately, however, 
you must cope with every 
predicament using ingenui- 
ty, imagination, and what- 
ever you find on your 
journey. 

Pixie Quest ($34.95) re- 
quires 48K RAM and one 
drive. 

Reader Service ^ 553 

Programming for Fun 

When you're tired of 
working with your TRS-80, 
101 Programming Surprises 
& Tricks for Your TRS-80 
Computer ($10.95) gives 
you games, novelties, and 
techniques to make com- 
puting fun again. 

This strictly-for-fun pro- 
gramming guide includes 



music and sound programs, 
animation programs, one- 
and two-player games, and 
programming tricks useful 
for more serious program- 
ming applications. 

If typing in listings 
cramps your style, a disk 
that includes all the pro- 
grams is available for 
$19.95. 

For more information 
contact Tab Books Inc., Blue 
Ridge Summit, PA 17214, 
717-794-2191. 

Reader Service >s 554 



Model 100 
Means Business 

Business Finance ($39.95) 
is Tandy Corp.'s 12-pro- 
gram financial analysis 
package for the Model 100. 
Calculation programs cal- 
culate net present value, in- 
ternal rate of return, finan- 
cial management rate of 
return, and depreciation. 

Also included are anal- 
ysis programs for rent or 
purchase decisions, lease/ 
purchase analysis, ma- 
chinery replacement, and 
bond analysis. 

An annuity/annuity-due 
program does calculations 
for savings accounts, com- 
pound interest, annuities, 
leases, loans, financial 
modeling, and other invest- 
ments. 

The portfolio analysis 
program generates a series 
of portfolio distributions to 
minimize risk for a given 
rate of return or maximize 
return for a given risk. 

Business Finance requires 
16K RAM and is available 
from Radio Shack stores. 
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Why the useivfriendly 

DOSPLUS IV is looking 
friendlier than ever. 



DOSPLUS IV 




TRS * DOS 


; 


FEATURE 


COST 


FEATURE 


COST 


File Editing and disk editing 


included 


Utilities Package 


40.00 


M-ZAL ( Machine Language 
Development System): Text 
editor, linker, assembler 


included 


ALPS 


199.00 


Built-in speed 


included 


TRS* DOS 6.2 


40.00 


Basic Programming enhancement 


included 


not available 




Directory Verification repair 


included 


not available 


* 


Disc mapping 


included 


not available 


* 


Total Cost 


$169.95 


Total Cost 


$279.00 | 



Good friends give you good 
deals on great products. Just like 
Micro- Systems Software has with 
its unique DOSPLUS IV program. 
Its the friendliest, most powerful 
and most complete DOS ever to 
operate aTRS-80. 

In fact, if you 
wanted all the henefits 
DOSPLUS IVoffers for its 
low, low price of $169.95 
(including the incredihle 




M-ZAL ) you'd have to pay over 
$100 more. And still wouldn't find 
all the features that have heen 
programmed into DOSPLUS IV 
So, check the comparison 
chart ahove. Then check out 

DOSPLUS IV for yourself. 

You'll discover you get much 

more program for much 

less money. 

And, after all, isn't 

that what friends are for. 7 



DOSIHUIIY 

Another fine software fhickiigc from bAicro*Systems Software, Inc. 
CALL 1-800-327-8724 FOR THE DEALER IN YOUR AREA. 



*• See Lis! ol Advertisers on Page 145 
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For more information con- 
tact Tandy Corp. /Radio 
Shack, 1800 One Tandy 
Center, Fort Worth, TX 
76102. 

Reader Service ^ 556 



Computer Card Game 

Casino, the card game, is 
now a computer game. You 
play against your Model I, 
III, or 4, as it keeps score, 
shuffles the cards, and plays 
dealer. 

The game includes an in- 
struction manual with sec- 
tions on rules of the game 
and playing strategy. Ca- 
sino is available on 16K cas- 
sette ($12.95) or 32K disk 
($16.95). Contact Dyna- 
comp (Catalog Dept., P.O. 
Box 18129, Rochester, NY 
14618, 716-442-8960) for 
more details. 

Reader Service *** 557 




Workstation 100 makes using your Model 100 easier. 



Portable Accessories 

The Workstation 100 kit 
($45.95) contains six attach- 
ments (also available sep- 
arately) to make your Mod- 
el 100 more efficient. 



The Power- 100 ($29.95) 
is a rechargeable battery 
pack that powers the Model 
100 for 9-12 hours. Support 
legs ($3.95) angle the Model 
100 for easier typing. 



The kit also includes a 
clip-folder typing stand 
($7.55), a pen ($2.75), a me- 
chanical pencil ($1.75), and 
a battery case ($3.95). At- 
tachments are compact 
enough to fit into the Model 
100 carrying case. 

Contact A.R.M.S. (12131 
Old Buckingham Road, 
Midlothian, VA 23113, HM- 
794-6675) for more infor- 
mation. 

Reader Service ** 555 



The Tax 
Preparer Cometh 

The Tax Commissioner 
income tax preparation 
software ($895) gives at- 
torneys, accountants, and 
tax preparers a fast and effi- 
cient alternative for gener- 
ating client tax returns. 

It prepares returns during 
a one-stop interview with 



frftf:] Sales Company 



• 189 



TABCO PARALLEL Printer Switch 

connect 2 printers to one computer! 



PSM-C/2P— Manual printer switch. Prolongs the life of your 
printer/interface connectors. Saves time & money! Use your 
existing printer cable to connect TAB SWITCH to your com- 
puter. Comes complete with two 3.5' cables to connect your 
printers. Straight-forward design makes it easy to set-up & 
use. 1 year limited warranty. 



704 W. Michigan Ave.; P.O. Box 8098 
Pensacola, FL 32505 Florida 904/438-6507 

SAVE A BUNDLE 



ORDER TODAY 
Only $69.95 



Other models available 

$2.50 Shipping/Handling 

Florida residents add 5% sales tax 



I - : 



EPSON, 

OKI DATA, 

BROTHER, 
TABCO 
Printer Switches 

Custom Printer Cables 

IJG Products 
Elephant Memory Diskettes 



X CALL 1-800-874-1 551 
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MODEL III 



MODEL 4 




Slate o* the art technology Ml board design ou' d>'ect 'epiacement of Rad«> Shacfc »" 
interna RS 2.1? boa'd mounts mside the Model in o> 4 on the ensting brackets An 
cables screws and complete mounting instructions are included Mon-techmca 1 
people n»HI tind that installation ,s quick, straight lonaa'd and simple requiring less 
than 1 5 minute* to complete 

Total compatabiiity «nin Radio Snack' and an enstmg software is maintained 
Software programmable baud 'ates from 50 to 1 9 200 baud a'e suppoled along *.tn 
programmable word length stop b*ts and parity May be ut-iixed in either halt ol lull 
dup*. opera, on OMt«Un<M«9 V.lu. 

•69.» 5 



Cwm/dg/c 



»"'J»mi 



Only 

Guaranteed One fun fear 
Desie' inquiries m».ied 
Please forward payment by ■ caahier's 
cnat* o» money orden 
Visa Of Mastercnarge also accepted 

Add $3 00 shipping & handling 
(Foreign orders quoted on request) 



FREE SHIPPING 

' DISKETTES ' 

West Coast "Call" Central & East/Call" 

1(800) 621-6221 1(800) 654-4058 

Discounts Starting at 3^ Box Quantities 



3M 



•5V 

s-side 
d-den 

U-biilt' 
d-den. 

s-side 
quad 

d-side 

quad 

•8"« 

s-stde Ol 
s-den. eCl 
s-side 
d-den. 

d-side 
d-den. 



17 95 

27 b -° 
33 9b 



Dysan 



r.o 



26 • 
3F 



•si 

s-side 

d-den. 

d-side 

d-den. 

s-side 

quad 

d-sKJe 

quad 

•8 

s-side 
s-den. 
s-side 
d-den. 
d-side 
d-den. 



maxell 

3 1 2 CALL 



si 



2 8 =o 
30 



s-side 
d-den. 
d-side 
d-den 



22^ 
30 5 ° 
34^ 

«50j s-side 
quad 
d-side 
quad 

•8" 
v s-side 
| d-den. 
95i 



19 9 - 5 
25 9 - 5 

2r 

36* 



7A =5*! d-side 
J" I d-den 



31 95 
34* 

3M AMARAY MEDIA MATE 

DC100A....13* (3V 1195) (5V'.11 y5 ) 
DC300A...184P DISK MINDERS 

DC300XL 202.5 (5V4. . .1675) (8" .2150) 

DC6O0A..2445 lB ULK PACKED DISKS CALL 



i Verbatim] 

•sVDatalife! 

s-side 1095 
! d-den 10 

' a-siaeO/19? 
; d-den .-H 

s-s.de On 95 ' 
quad «JU 

d-side 0Q9_5 
quad Jv 

•8"Datalife 

24 7 - 5 : 

s-side 0C95 

d-den. LV 

d-side 019.5 

d-den. Ol 



s-side 
s-den. 



Diskettes 

10 /'Box 



Head Cleaners 

Kits 520 

Refills. .955 

Analizers 25^0 



,/D 



"KftohU 



Dealer Inquiries 

Welcomed 

1i800i 654-40581 



° s k ^Va°dT Uonnccuon" 

'UPS Delivery Only, Add 3^ on orders under 35* or 20 dis \ 



Communications Gap? LETS TALK ! 



IBM PC ft. 

PC XT 




TRS-80* Model III 
TRS 80 Model 2. 
4. 12 and 16 



COMPAQ f 



LET'S TALK CLOSES THE COMMUNICATIONS GAP 

BETWEEN TODAY'S POPULAR PERSONAL 

COMPUTERS. 

LET'S TALK is a complete package for fully supported 

communications between any of these computers. In 

any direction. Without additional expense. 

LETS TALK is a simple, straightforward pro- 

gram that transfers ASCII data files, including i/*~"iC" > )('~ > )[~ > Y 

fjOFTlufJOf 



BASIC and VisiCalc ' . from one computer to 



Tandy 2000 



another. Precisely. Easily Without professional, expen- 
sive data processing expertise. 

LET'S TALK allows two computers to communicate 

directly with each other in a "conversational mode" 

when not actually transferring data. And. LET'S TALK 

can send or retrieve files of any size from unattended 

computers, at three different speeds. 

GROWTH AND EXPANSION REQUIRE 

OPEN COMMUNICATION. LETS TALK. 



Making dollars and sense out of information. 



TRS 80 is a registered trademark of Tandy Corporation Tandy 2000 is a Trademark of Tandy Corporation Vlsl Calc is a registered trademark of VlslCorp 
IBM PC and PC XT are registered trademarks of IBM Corporation COMPAQ is a trademark of Compaq Computer Corporation 

a division or rhe goodman group, inc 1 2900 Preston Rd„ Dallas. te«as 75230 1214)239-608* 
1 1 1 s I Ai K in> ludrs «n diskettes lor each ol the above computers Suggested retail price S I 79 00 « JS 00 shipping 



• See List ol Advertisers on Page 145 
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clients, and eliminates 
transposition of informa- 
tion and errors that fre- 
quently accompany this 
step in tax preparation. 

The program displays 
each tax form. You enter 
the data, and Tax Commis- 
sioner computes and prints 
out the tax return. You can 
print data only, or choose 
from more than 35 pre- 
printed forms. 

Tax Commissioner re- 
quires a Model 2000, or a 
Model III/4 with CP/M 
2.2. Contact TAXbyte Inc., 
3803 28th St., Moline, IL 
61265, 309-764-7245 for 
more information. 

Reader Service ^ 567 

Super for the Model 4 

Super, the data base 
management system from 
the Institute for Scientific 
Analysis Inc., is available 




Soho Corp. 's slackable disk boxes are $4 each. 



for the Model 4. Super 2.3 is 
menu-driven, and features 
on-screen editing, a calcu- 
lator program, and a filing 
system. 

The program lets you set 
up and create data bases, 
save report formats, print 
reports, and sort informa- 
tion. Super 2.3 is available 
for the Models I, II, and III. 
It costs $199 and includes a 
manual. The program is also 



available as an upgrade. 

For more information 
contact Institute for Scien- 
tific Analysis Inc. at 36 E. 
Baltimore Pike, Suite 106A, 
Media, PA 19063. 

Reader Service *s 564 



Disk Boxing 

The D-60 compact disk 
storage box ($4) from Soho 



Corp. stores up to 60 5 Va- 
inch disks. 

It features a smoke-tint 
see-through cover and has 
four plastic dividers for or- 
ganizing disks. Disk boxes 
stack for easy storage. For 
more information contact 
Soho Corp. at P.O. Box 
20081, Ferndale, MI 48220, 
313-543-5209. 

Reader Service ^ 559 

Graphics Answers 

The Inovion Personal 
Graphics System (PGS) is a 
78K RAM stand-alone 
graphics generator that cre- 
ates up to 2. 1 million differ- 
ent colors. 

PGS runs with any com- 
puter with an RS-232C port 
and features a 512- by 480- 
pixel display, 19-inch mon- 
itor, and an icon menu 
driven by a mouse or track- 
ball. 



NOW You can 

have a UNIQUE 
& Powerful 

NETWORKING 

built into Radio 

Shack Models 

III & 4. 



MASTER 



SATELLITE 



SATELLITE 




TYPICAL 
CONFIGURATION 



HIGH SPEED SERIAL BUS (TWISTED PAIR) 



After comprehensive field testing in medical & legal offices, PSM, Inc. is releasing the technology necessary to 
expand the capabilities of your Model 111/4 to MULTI-USER, MULTI-PROCESSING, SHARED DATA APPLICATIONS 
using Winchester 5.25" hard disks. Each workstation is a complete, independent computer which is tied to the hard 
disk through a high-speed serial bus. Workstations DO NOT NEED ANY DISK DRIVES; they will boot up properly 
through the serial bus from the hard disk. It will be running under LDOS as if the hard disk was its drive: ! 

FEATURES 



• Protects existing software investment 

• Data file sharing 

• Compatible with LDOS 5.1.4 



• Shared hard disk [5 to 20 megabytes] 

• File/record lockout capability 

• Used in active medical offices since 2/83. 



PSM-W5: 

PSM T/0: 
PSM-U5. 

PSM-U0: 

PSM-NM: 



Model 4 w/64k RAM, 40trk DS Floppy, built-in 5 Mbyte hard disk, master network 

controller, LDOS 5.1 .4, Technical Manual 

Model 4 w/64k RAM, boot PROM, satellite network controller, Tech Manual 

PSM upgrade of your Model III/4 w/64k RAM to PSM-W5: incld's 5Mb hard disk, hard 
disk controller, master network controller, LDOS 5.1 .4, power supplies, Tech Manual .... 
PSM upgrade of your Model III/4 w/64k RAM to PSM T/0: incld's boot PROM, satellite 

network controller, Tech Manual 

Technical Manual: Incld's complete description of PSM networking, and application 
implementation. Tech Manual purchase will be credited toward later hardware purchase. . 



$4,975.00 
$1,875.00 

$2,625.00 

$665.00 

$20.00 



^.^^^ _ All shipping and handling charges are the customers' responsibility. 

|f^T |\ /■P fr) W ammin R Technical consultation services available. Modification of Model HI/4 to 

I ^^W ml ■ and SySlBms implement networking will void the Tandy warranty. 

I managemen. 3866 Indian ripple rd., dayton, oh 45440 (513)426-8644 " 42 

Radio Shack is a trademark ol the TANDY CORP LDOS is a Irademark of LOGICAL SYSTEMS. INC 



170 • 80 Micro, January 1985 



NEW PRODUCTS 



A frame grabber/digi- 
tizer lets you freeze a signal 
from your TV, VCR, or 
video camera and manipu- 
late the picture. 

Synthetic color routines 
change the color saturation 
or hue of a group of pixels. 
PGS retains textures and 
three-dimensional quality 
while enhancing colors. 

PGS is $3,495 from Ino- 
vion Corp., 195 E. Gentile 
St., Layton, UT 84101, 801- 
546-2850. 

Reader Service is 566 



Computer Calling 

You're sitting at home, 
enjoying a cool glass of Jose 
Cuervo tequila, when the 
phone rings. You pick it up, 
hear a high-pitched tone, 
and turn to your TRS-80. 
"It's for you," you say, 
handing the telephone to 



A, 

•f'l ■■■!■■■ ^ 



Cassette and disk labels from Quick Label Systems are re-markable. 



your computer. 

The scenario sounds fu- 
turistic, but the technology 
is just a phone call away. 
William J. Cook's The Joy 
of Computer Communica- 
tion ($5.95) shows you how 
to access the world of com- 
puter telecommunications 
to get stock market quotes, 



make business deals, send 
electronic mail, and do your 
shopping. 

The book also includes 
instructions for accessing 
the Dow Jones News/Re- 
trieval Service, banking at 
home, subscribing to an 
electronic version of The 
Washington Post, and ac- 



cessing other information 
services. 

For more information 
contact Dell Publishing Co. 
Inc., 1 Dag Hammarskjold 
Plaza, 245 E. 47th St., New 
York, NY 10017. 

Reader Service ** 560 



Label Mark-ups 

The re-markable labeling 
system from Quick Label 
Systems (437-B Main St., 
Laurel, MD 20707, 301- 
725-0050) lets you erase and 
reuse disk and cassette 
labels. 

Labels include clear plas- 
tic overlays that you can 
wipe clean and re-mark an 
unlimited number of times. 
The kit includes 24 labels, 
the marking pen, and in- 
structions for $4.95. 

Reader Service ^ 551 




Box of ten 5W' otdk diskettes, with labels, 

envelopes and reinforced hub-rings. 

SS/DD 0S/DD 

Softor <i4 e;50 softor SO -150 



16 Sector 

SS/QD 

96TP1 



$ 16 ! 
$24 



50 



16 Sector 

DS/QD 

96TP1 



s 31 



50 



STAR'™ MICRONICS PRINTERS SALE 



s 244 00 
s 365°° 

s 415°° 



,00 



Gemini 1 0X, 120 CPS Bi-directional 

Gemini 15X, 120 CPS Bi-directional 
Delta 10 160 CPS, 8K Buffer, 

Dual Interface 
Delta 15, 160 CPS, 8K Buffer, 

Dual Interface 
Radix 10, 200 CPS, 16K Buffer, 

Dual Interface 
Radix 15, 200 CPS, 16K Buffer, 

Dual Interface 
Powertype Daisy Wheel Letter Quality, 

Dual Interface, Bi-directional, 

Reverse paper feed 

Shipping and Handling $3.00 for any size order ot diskettes, $9.00 
for printers, COD. orders add $1.65. We accept credit cards at 
NO extra charge. Illinois residents please add 7% sales tax. 



C;ill mow TOIL FREE ANYWHERE in the US 

Nationwide 1 800 336 6875 

Illinois 1 800 94? 5200 

lnterniition.il 1 312 256 4456 

9 a.m. 6 p.m. (Central) Mon. through Fri. 



s 650 

s 585° 

s 685° 



J 345°° 



BRICKWARE 

If you invest in brick and mortar, then you should invest 

in our brickware, Investor III™. Designed by real 

estate professionals to work on the IBM PC or TRS-80, 

Investor III™ is a comprehensive software package that 

aids in investment analysis of property, whether 

Hi commercial or residential, small or large. It shows 

both the tax and cash aspects of an investment opportunity 

[ and is flexible enough to allow you to vary a number 

rj'm of key assumptions (such as cash flow, phased investments, 

multiple mortgages, and tax parameters) and see the 

results in an instant. So if you are serious about brick 

and mortar, look at our brickware. It will help you lay a 

solid foundation for your investment strategy. 

Contact your local dealer. 





SMART DATA INC.. 

PO Box 297 

Wilmette.IL 60091 ^258 

13121256-4456 




GOOD 



.- See List ot Advertisers on Page 145 



„ 103 SOFTWARE CORP 

A Division of The Goodman Group, Inc. 

1 2900 Preston Road 

Dallas, Texas 75230 

(214)239-6085 

$249.00 Suggested Retail 

Making dollars and sense 

out of information. 
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Why E-C DATA claims to 
manufacture the best TRS-80 
Kits in the World... 

We know how. As Tandy importers to Denmark, we have wor- 
ked with TRS-80S for over four years, developing national key- 
boards and character sets, disk kits and DOS'es. The Scandi- 
navian Model 3s came with 80 track drives and 80 track TRS- 
DOS right from the beginning. Even Model I was supplied with 
77 track disk systems - manufactured by E-C DATA. 
We get product information early and precisely as Authorised 
Tandy Dealers. 

We use One-Year-Old Technology. Old enough to be reliable 
but not obsolete - that's -One-Year-Old Technology" WD- 
2793 Controller Chip, 8k CMOS RAM in Flat-Pack versions. 
State-of-the-Art ? Certainly ! And reliable. 

We purchase no odd lots of components to make a Fast Buck 
We buy on long-term contracts from leading manufacturers 
such as Texas Instruments, Western Digital, Shugart and Hita- 
chi, assuring a steady and constantly high product quality 
We burn in and test everything, before it is shipped - under 
realistic operating conditions in TRS-80 Computers 
We help you by providing detailed installation and repair ma- 
nuals. If you get stuck anyway, chances are that you get to talk 
with the Graduate Engineer who actually designed your kit, if 
you phone us for help ! 



FREE SHIPPING 
WORLDWIDE ! 

12 MONTHS GUARANTEE ! 



FOR MODEL 3 AND 4: 

Complete Disk Kit w/ 64k M4 RAM w/o Drives' 

Complete Disk Kit w/ 32k M3 RAM w/o Drives" 

Complete Disk Kit M3/4 w/o RAM w/o Drives" 

Floppy Disk Controller (3'/2, 5V 8") M3/4 

Real-Time Clock/Calendar Option, Add 

8 Drive Option, Add 

Disk Installation Hardware w/Power Supply w/o Controller 
2 to 4 Internal Drives Expansion Power Supply. . 
RS-232 (V.24) Communication Interface Kit M3/4 

First 64k M4 RAM Expansion Kit 

64k - 128k M4 RAM Expansion Kit w/ PAL U72 

M4 PAL U72 alone 

TRSDOS6 2forM4"" 

Disk Drive Shugart SA-455 
Disk Drive Shugart SA-465 

FOR MODEL 100: 

8k Internal RAM Expansion. Low Power CMOS 80 

32k Battery Backed Plug-in Extra RAM Bank (32-64k) 325 
Bell 103 to CCITT Internal Modem Conversion Kit 65 

' Specily whether you inlend to use the Kit with Full or Malt Higiit Drives ' 

• "Only with Purchase ot Disk Kit Spealy 40 or 80 Track Diskette ' 

TRS-80 and TRSDOS are Trade MarKs ol Tandy Corporation Fort Worth Texas 

ORDERING: 

USA (New York): 1 - 212 - 678 0064 
Denmark: 45 - 2 - 818191 Tlx 37825 ec dk 

Use whichever is convenient in your time zone - or write us ! 

All Products except Disk Drives and DOS Made in Denmark 

Dealer Inquiries Welcome ! 



2 Hight. DS. 40 Tracks 
2 Hight. DS. 80 Tracks 



265 

250 

215 

155 

60 

10 

95 

65 

75 

65 

70 

30 

45 

205 

245 



E \\JL S|Q$! 



% 



Payment by Cheque, Money Order or Credit Card. We ship to 
all Countries, where Hi-Tech Sales are Legal by US Law. 
All Prices in US Currency. Local Duty or Taxes not Included. 

E-C DATA A/S * IE-CI 

P.O.B. 116 - DK-3460 Birkerod - Denmark 




Fujitsu America's compact DPMG9 dot-matrix printer runs at 180 cps. 



Fujitsu Ink 

The Model DPMG9 com- 
pact dot-matrix printer 
($695) from Fujitsu Amer- 
ica Inc. boasts 80-column, 
bidirectional printing with 
180 cps draft-quality print- 
ing (25 cps correspondence- 
quality). 

The printer features fric- 
tion and tractor feeds, auto- 
matic perforation skip, 255 
character fonts, and a lan- 
guage-select function. It 
prints international charac- 
ters, superscripts, subscripts, 
and images. 

The DPMG9 weighs 19 
lbs. and measures 12 by 16 
by 4 inches. A Centronics in- 
terface is standard, with RS- 
232 interfacing available. 

For more information 
contact Fujitsu America 
Inc. at 3055 Orchard Drive, 
San Jose, CA 95134, 408- 
946-8777. 

Reader Service ^ 561 

Write the Volks 

Volkswriter Deluxe ($295), 
the popular word processor 
for the IBM PC, is available 
for the Models 1200 and 
2000. 

Features include foreign- 
language and scientific 
character sets, on-screen tu- 
torials, multiple fonts and 
colors, and compatibility 
with Lotus 1-2-3, VisiCalc, 
and other commercial spread- 



sheet programs. 

Volkswriter Deluxe for 
the Model 2000 takes ad- 
vantage of the Model 2000's 
extra memory, faster pro- 
cessing speed, and color ca- 
pabilities. 

Minimum system re- 
quirements are 128K RAM 
and two drives. Volkswriter 
is available through Radio 
Shack stores. Contact Life- 
tree Software Inc. (411 Pa- 
cific St., Monterey, CA 
93940, 408-373-4718) for 
more information. 

Reader Service s 568 



Tenant Fever 

Good Software Corp. 
(12900 Preston Road, Dallas, 
TX 75230, 214-239-6085) 
has announced the Real Es- 
tate Investor III package for 
the Models 1000, 1200, and 
2000. 

Investor III ($249) uses 
your criteria to analyze real 
estate investment potential, 
and generates profit projec- 
tions for potential invest- 
ments. Projections range up 
to 20 years for more than a 
dozen financial criteria. Tax 
formulas are based on 1985 
tax laws. 

The quick-test feature 
generates a rough estimate 
of an investment's poten- 
tial. Investor III also per- 
forms sensitivity analysis to 
evaluate the impact of 
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Subscription 



80 Micro does not keep subscription 
records on the premises, therefore 
calling us only adds time and doesn't 
solve the problem. 

Please send a description of the prob- 
lem and your most recent address 
label to: 

aO^-nicro ® 
Subscription Dept. 
PO Box 981 
Farmingdale, NY 11737 



Than* you and enjoy you' subscription 



I KS-KO 
GENKAI (H.\ 
SOITU ARI 

(.1 NSYSTEMS 1.3 
Models l and III 
["RSDOS" 2.3/1.3 
U28 45 

(.-( RAB 5.0 
Models 4 and 4P 
rRSDOS' 6.x 

Sms on 

(,-< RAB 5.0 

Model*, ll. 12, and in 

I Ksix >S* : Qa I RSDOS-II' 4 2 

$193 00 

Please *rriie foi .i free software 
-uunn.uv packet 

Send S2.00 foi .i descriptive booklet on 

< .1 \sn s 1 1 sis oi send 12 00 loi a booklet on 

G-< RAB (boih releases). 

ARMSTRONG 
GKM \lt)(.K\l 

SYSTEMS 
$009 Utah Drive 
Greenville, I \ 75401 

(214) JS4-K2IN 



• 10J 




Computer Assisted Drafting for Models 
IN/4. 4P with hi res graphics Draw, save, 
edit, zoom, scale exaci technical plans 
Plotter hardcopy upto24"x36" Extended 
professional version has - ■■ ' i,s, text 
labels block copy, re-scale clip, merge, 
rotate, more 



Software $249 95 - 449 9 



CB MICRODEX 
1212 N Sawteiie 
Tucson AZ 85716 
(602 1 326-3502 




PERIPHERAL SWITCH 



AUTOMAT IC SWIT CHES 

for jEeB3 

Fast, easy, automatic way lo share a 
printer or modem among many com- 
puters. No software required. RS232 or 
Centronics. It scans for peripheral re- 
quest, connects to the peripheral, 
handles all hardware handshaking, and 
releases the port. LEDs display chan- 
nel selected and busy status. Attractive 
aluminum box. K channels-prke: 
2-S200 4-S250 6-S300 8-S350 
MANUAL SWITCHES 
FOR TRS-80 
Uses PC board and aluminum box. 
n lines switched RS232-10 Ccnt-20 
RS232 1:2 $59(wow) 1:4 $99 

Centronics 1:2 $99 1:4 $179 

Free book with each order entitled 
Serial and Parallel Explained 
ROSE MC AND VISA 

tLtcT.0N.es (7l3)240-ROSfc 

Pro. Box 742571 Houston. Tx 77274 



Maxell Floppy Disks 

The Mini-Disks 
with maximum quality. 





Dealer inquiries 
invited C O D's 
accepted Call 
FREE (800) 235-4137 



PACIFIC EXCHANGES 

100 Foothill Blvd. San Luis 
San Luis Obispo. CA 93401 
In Oil call (800) S92-5935 or 
(805)543-1037 
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PRSSUORDS 
Got. you down ? 



THfl-80 Model III ownora H*»e yuu n«r furguUM. rrJe 
•palled, or nUa-«ntar«d • puwwortfv New yuu j»i. rwnuve 
putwurdt from any TR8D06 1 3 duk file w.Ui PAflSZAP It 
will ilao rwnote dlan mkoler puntonla PA8SZAP la isay b> 
uaa. wlih on icmn lnetrucuone and oomee wlUi a oomplel* 
uielrucuon manual PAS8ZAP raqulra* a Modal III with at 
laaat 3ZK HAM and one dlak dn»e Take advantage of our 
new low pnoe of only e36 CO 



Alao CASSETTE HANGMAN tnat rune on a Model III with 
1BK KAM and offera play against tn« oomputar or a friend 
for only 110 CO 

1 R IER: S<nd check or money order along with 

your choice of program*. (Utah residents please 
ddd duproprute »ale» lax.) 

QUESTIONS': Please Include with all 

inquiries. 



_/\ J. STAH EMT 

'^~ T~~T P.O. Box 36 

}v_J S Orero, Utah 



ERPRISES 

2 

84057-0362 



*-b2 



TRS0OS and TB^-80 are trademarks of Tandy Corp. 



FOR MODEL 100 




STRONG VERSATILE HARD COVER 

THE PERFECT SOLUTION to proper protection of 
screen, keys and key switch shafts when carrying 
in a briefcase, its softcase or in any case Made 
of 080 inch thick super strong high impact 
Eastman PETG plastic. 

DESK TOP PROTECTION from dust, spills and 
things that get dropped Optically clear so auto 
prompted messages are seen at a glance 

THE ULTIMATE LAP MACHINE! Invert cover and 
add prop legs to create a stable interlocked unit 
at a most comfortable lap use angle 

$17.95 ♦S200S4H.CHKORMO TXRESA005*t 

Money back satisfaction guarantee! ^-64 

THE S0UTHW0RTH COMPANY, Dept. D 

4001 HAWTHORNE AVE . DALLAS. TX 75219 



EPSON" OWNERS 

We get letters on a regular basis 
from customers saying how much 
they enjoy receiving our lists. 

It's probably safe to say that our lists 
are aifferent from most of the others in 
that they are as entertaining as they 
are informative. 

The lists are "slanted" toward the 
EPSON Printer user but should be of 
interest to the owner of most any 
microcomputer printer 

Send us your name ana aadress 
and we'll send you a rather fat 
envelope filled with computer 
oriented offers 

ZYGOTRON 

P.O. Box 27 " 279 
Fremont, Michigan 49412 

I !o USA addresses and by -nail or>ty 'fPSON 
'•adomarti of Fpson America Inc 



ELEPHANT™ Diskettes 



LIFETIME WARRANTY 



Box of ten 5' 4" ELEPHANT* diskettes with 
labels envelopes ana reinforced hub-rings 



SS 

su 



^iO $ *16.50 



OS 

OD 



*150 



EPSON PRINTERS — SALE 

Dot Matrix. Bidirectional with Logic Seeking, 

Paper Feed and Tiactor Feed 

RX80 100CPS '239.00 

RX80F/T 100CPS '285.00 

RX100 100CPS '469.00 

FX BO 160 CPS. 2 K Buffer '395.00 

Shipping and Handling S3 00 fc» any sue cot* oi diskettes J9 X 
kv primers COO orders add Ji bb We accept cedit cards it 
'.. ci'-j . j • .■.._■: :■. ■:.■:■■■ ' . •■ ,. 




• See List ol Advertisers on Page 145 
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NEW PRODUCTS 



BASIC 

FDR MODELS I AND III 

JUST GOT 
BETTER 



INTRODUCING BASRUM. THE ONLY LINKING 
LOADER & LIBRARY MANAGER FOR BASIC. 

BASRUM is designed to manage the subroutines you write and 
use in your Basic programs. Like an efficient filing system, 
BASRUM saves you time, energy, and space. Best of all, it makes 
your program writing FASTER and EASIER, 
HOW DOES IT WORK? 

BASRUM lets you store your subroutines in "library" files, 
separate from the programs that use them. ANY Basic program 
can then use any routine in any file. You can even load up to 256 
routines to a special, protected memory area and use them 
AFTER you load other Basic programs! Naturally, you can 
replace or delete any routine from memory at any time. 
SUPER BENEFITS! 

NOW you can write a subroutine ONCE, store it on disk ONCE 
... but use it in ANY program at ANY time, AUTOMATICALLY! 
Load them once, use them all day. You can CHAIN from 
program to program, keeping the existing subroutines, variables, 
and file buffers. Your Basic programs, being shorter, will LOAD 
FASTER. NEED MORE MEMORY? You can break long 
programs into shorter modules and "overlay" the modules. 
BASRUM gives you complete control of WHAT is loaded, 
WHEN it is loaded, and WHERE it is loaded. 
THE NITTY GRITTY. 

BASRUM was designed specifically for the models I and III 
for use with any DOS that is compatible with TRSDOS®. It's 
overlay structure requires only the top 1600 bytes of memory. 
There is NO LIMIT on the number of working copies. 
SIMPLE ENOUGH FOR THE BEGINNER, VERSATILE ENOUGH FOR 
THE PRO: IFYOUWRITE PROGRAMS IN BASICYOU NEED BASRUM. 

TO Money order, check, VISA MASTERCARD: $ 149.50 

ORDER: Specify: Model I or Model III 

SPECIAL CHRISTMAS PRICE 

$99.50 

Orders must be postmarked by Dec. 31. 
Please add $4.50 shipping &. handling. 

GUARANTEED TO WORK AS 
DESCRIBED OR YOUR MONEY BACK. 



f\ASRl '\1 



by Wiley, Inc. 



P.O. Box 1242. Honolulu, HI 96807 
(808)531-4314 

TRSDOS is a registered trademark of the Tandy Corp. 
BASRUM is a trademark of Wiley. Inc. 




The Volksmodem 12 features control from any Hayes<ompatible pro- 
gram, with tone or pulse dialing. 



changes in expenses, taxes, 
appreciation, or other pa- 
rameters on property in- 
vestments. 

Reader Service ^ 558 



It's a Volksmodem 

The Volksmodem 12 
300-/l,200-baud intelligent 
modem ($299) features auto 
dial/auto answer, tone and 
pulse dialing, busy signal 
detection, dial tone detec- 
tion, and telephone set jack. 

The unit works with any 
Hayes-compatible programs. 
It includes a voice/data 
switch, two modem config- 
uration switches, status in- 
dicator lights, and five pro- 
grammable set registers. A 
12-volt ac adapter is also in- 
cluded. 

Contact Anchor Auto- 
mation (6913 Valjean Ave., 
Van Nuys, CA 91406, 818- 
997-7758) for more infor- 
mation. 

Reader Service v 562 



SteUar Words 

The WordStar word pro- 
cessor program, WordStar 



Professional Options pack- 
age, and WordStar Profes- 
sional package are available 
for the Models 1200 and 
2000. 

WordStar ($495) features 
self-help menus, block 
moves, global word search, 
justification, and format- 
ting. Print options include 
boldface, underline, double 
strike, overprint, super- 
script and subscript. 

WordStar Professional 
Options package ($345) 
contains three utility pro- 
grams for WordStar. The 
MailMerge text merging 
utility creates form letters. 
CorrectStar checks spelling 
against three dictionary files 
(1,500-65,000 words). 

Starlndex creates in- 
dexes, tables of contents, 
and lists of figures and 
tables automatically. Pro- 
grams are also available 
separately. 

The WordStar Profes- 
sional ($695) includes Word- 
Star, MailMerge, Correct- 
Star, and Starlndex. For 
more details, contact Tandy 
Corp./Radio Shack at 1800 
One Tandy Center, Fort 
Worth, TX 76102. 

Reader Service • 565 
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LOOK!! 

Low prices on hard disk drives 

by Percom* for TRS-80** 

Model I, III & 4 

10 meg-$ 1295.00 

20 meg-$1 795.00 

30 meg-$2395.00 

all are new and carry full 

factory warranty 

Driver & Cable-$85.00 

Call-513-268-2108 

Mail certified check or money 

order to: 

JASTE ENTERPRISES, INC. 

7679 Sweet Potoato Road 

Brookville, OH 45309 

*TM Percom Data 

*TM Tandy Corp. 



PLAY CHESS WITH THE MASTERS' 

INTRODUCING 

CHESS CLASSICS 



Entertaining, educational chess software 
to improve your chess game. 

Each disk contains 64 games played by 

masters from Morphy to Fischer 

and Karpov. 

Use CHESS CLASSICS to look at a great 

game and see if you can guess the 

winner's move. 

Built-in scoring system gives you an 
approx. US Chess Federation rating for 
your success in picking the right move. 

Available for TRS-80 Model I, III and IV 

KING PAWN DISK $59.95 

QUEEN PAWN DISK $59.95 

BOTH DISKS $100.00 

(CT Residents add 7Vi % sales tax) 
Send check or money order to: 

Noteworthy Software Inc. ■' n: 
12 Noteworthy Dr., Danbury, CT 06810 




m 



VES WE DO WINDOWS SO CAN YOU 



Windowpad an intergrated win- 
dowing and note processing utility 
is ready for your TRS-80 Model I 
III 111/4 Windowpad runs along 
with your application program or 
standalone Just $21 25 Post- 
paid Send Check or Money Order 
to EN Fleur Corp 2494 Sun Valley 
Cir Silver Spring MD 20906 •- W) 
3 [MP Residents Add 5% Tax] r~j 



Quit Wasting 
Your Time! 

Use our friendly programs They save 
keystrokes speed up Basic operation 
and add extra features to most Model 
1 /3/4... disk systems Try them and see 
for yourself (or write for information) 

FAST4/CMD $14.95 

U4 only Full spsxxJ. no tide e«ecis 

AutoPAWS $14.95 

Ml'3,4 Slops scrolling wh«n CRT lills 

UTILIPAK $2495 

Auo'teO utility programs tor VI'J/4.. 

MENUGEN $54.95 

M.f 4 . Includes BASIC speed up Mes 

Add t3 pet order packing and post 
age immediate shipmentoy 1st Class 

Mail. 

the software factory 

12101 N Western View 
Oklahoma City OK 73132-9270 



^104 

ml: 



w*„ 



Where is that 
Movie?' 

Find u quickly, easily with 

yiDEOTkPE 

TRACKEH 

MM 10*1 I 
■JejOeferajry ran to um • 

... -H •,rl»>. J.....U 

bered labe 1 * • .*■> b> tape and 

'•»■• >#-«' • r\ b| tape trite j 

rr.fr • ,rr, t »l • iced, |,. „„ 

TAPE 
\ TRACKER . ■ 




(800)824 7888, 
oper. 422 

PLEASE SPECIFY 

IBM P< MK I disk 

I KS K.i I or III 

***.. 2 Juki 

T ill J y 3000 

ALL THIS 
FOR ONLY: 

•39.95 



IEEE-488 TO TRS-80* INTERFACE 

Everything needed to add powerful 
BASIC GPIB-488 controller capability to 
TRS-80 Model 1, 3 or 4. Level 2 or DOS 
with a minimum of 16K 



/r 1 



I* 



4S8$0C 

For Model 3 or 4 
Operation 488 SOB 

For Model I 

Operation 



JsL 



Model 448-80B or 488-80C Price: $425 
• shipping insurance & tax 

WHEN ORDERING SPECIFY DISK OR TAPE 

SCIENTIFIC ENGINEERING 
LABORATORIES 

11 Neil Drive • Old Bethpage NY 11804 
Telephone (516) 694 3370 

' Trademark ol Tandy Corp 

There is no atiihation between Scent/tic 
Engineering Laboratories and Tandy Corp or 
Radio Shack 



ANNOUNC I NG 

u» a k a * o r * aim uiattiocfc* 

SCENARIO (CASTLE MYRMAVtll I 

THE GREATEST ROLE-PLAYING FANTASY 

ADVENTURE E VER WRITTEN 

ti mi t i. r. .... i 



i ha 



lleg> 



I ■ II 



lh< 



i 



FEAT URES 



WILL RUN ON 
MODEL I (48K| TRSDOS NEWDOSBO 
MODEL III (48K.) NEWOOSBO 

MODEl IV ( in III mod. I 



PRICE U9t) US. (449.95 CAN.) 
CHEQUE OR MONEY ORDER 

payable to 408614 Ontario lid. 

allow 2 •■■lii Dal i»ii to' 



MAIL ORDERS TO: 

WARRIORS AND WARLOCKS 

S6ECCLESTON DR. SUITE 311 

TORONTO ONT. CAN 

M4A 1(9 

(416) 759-BB49 




INODVILL 
DIET 
PROGRAM 

$69.95 
TAKE A BYTE " c ±), 

.TO 



MAINTAIN LOSE OR GAIN WEIGMI 
Ih. NODVILl DIET PROGRAM Ijm i B|l 
THS »0 D D Dim HI I ill I w P C Compal 



Calculate nk»n 
Evaluat* nulrit.» 
npara daily d 



: and nutrlll.e loo intake yT- 

I .aloe ol you. diet -^L 

let lo individual RDA Charl ' 

Create personalised daily meals and manui 
Plan virlad daily menus based on sound nutrition 
Save records o' daily meals and menus lor future planning, 
Print nutrition charts food meal menu and grocery list* 



Take a Byte 



Modular BASIC Proflri 



MJ 



I Program Menu 
t Recommanded DaMy Oeter. Allowance. ROAI CHART 
2 73:1 E spendable Random Access rOOD 1 1ST OalaF.ie 
J }t Nutritional MEAl LIST Dale File Eiempset 

4 7 Balanced DAUY MENU 1 1ST Dele I. la E sampan 

5 GROCERY 1 1ST Program Module 

6 2i Page USE R S MANUAI including Cherts and Tablos 



*L 



E3 



NODVIIL Software 

J4 Nod Road 
•dgefleld Conn 068T 



M 




write on— 

—WIPE OFF 
LABEL SYSTEM 



1000 Entry Changes Each Label 
Label Will Outlast the Device 
Permanent & Changeable Entries 
Ideal for Color Coding & Indexing 
Complete Kit ot 24 Labels & Overlays 

1 Qui k-Pen & Stor-Pak . . . $4.95 



Specify lor: 

■ Floppy Disk 

■ VHS Video 



Cassette (Data-Audio) 
Hard Disk 
Beta Video 



Write or Call: 
Quick Label System 

301-725-0050 -"» 

437-B Main Street. Laurel, Md. 20707 

VISA — MASTERCARD 

'"DEALER INQUIRIES INVITIED"* 



s See List ol Advertisers on Page 14b 
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NEW PRODUCTS 



Able Enable 

Enable ($695), an inte- 
grated package for the Model 
1200, includes word process- 
ing, a spreadsheet, graphics, 
database management, and 
telecommunications. 

Modules offer fast, easy 
transfer of data. Enable in- 
tegrates data from all mod- 
ules in one window for 
printing or data transmis- 
sion. You can create graphs 
from the spreadsheet or 
data base program, then in- 
sert the graphs, spread- 
sheet, and data base data 
into a word processing 
document on screen. 

The system is compatible 
with files from dBasell, 
Lotus 1-2-3, VisiCalc, 
WordStar, Easy Writer I, 
and Volkswriter. Enable 
also lets you use modules si- 
multaneously. For instance, 
you can use the spreadsheet 
program, print a report, 
and receive stock quotes 
over the wire all at once. 

Current owners of Lotus 
1-2-3 can buy Enable for 
$200, and dBase II users can 
buy it for $400, with proof 
of purchase. For more in- 
formation contact The 
Software Group at North- 
way Ten Executive Park, 
Ballston Lake, NY 12019, 
800-338-4646. 

Reader Service ^ 572 

PFS:Planning 

Software Publishing 
Corp. (1901 Landings Drive, 
Mountain View, CA 94043, 
415-962-8910) offers a full 
line of PFS: products, in- 
cluding its new PFS: Plan 
spreadsheet program for 
the Models 1200 and 2000. 

PFS:Plan ($140) lets you 
develop budgets, forecasts, 
and other financial models 
without learning complex 
program formulas and 
command sequences. 



Quick entry keys let you 
generate row and column 
headings with one key- 
stroke. PFS: Plan displays 
formulas next to rows and 
above column headings in 
English terms. 

PFS: Plan accepts files 
written with Lotus 1-2-3, 
Multiplan, or VisiCalc, and 
integrates with all other 
PFS: series programs. 

Other PFS: series pro- 
grams include the PFS: 
Write word processor ($140), 
PFS:File information man- 
agement program ($140), 
PFS: Report report gener- 
ator ($125), PFS:Graph 
chart and graph program 
($140), PFS:Proof spelling 
checker ($195), and PFS: 
Access communications 
program ($195). PFS: File 
and PFS: Report are also 
available for the Models III, 
4, and 2000. 

Reader Service v* 571 

On-Line Health 

Home Health Guide for 
Children ($69.95) solves the 
problem of deciding when to 
call the doctor for your child 
by providing information on 
155 health problems. 

Dr. Barton D. Schmidt, a 
pediatrician, describes and 
defines symptoms and 
causes of illnesses, recom- 
mends action, home care, 
and preventive measures. 
Health problems covered 
range from diaper rash and 
mumps to common colds, 
selecting shoes, and emer- 
gency situations. 

The three-disk Model 4 
package features built-in in- 
structions and a menu for 
easy use. It's available at 
Radio Shack stores. Contact 
Clinical Reference Systems 
(P.O. Box 20308, Denver, 
CO 80220, 800-821-2794) 
for more information. 

Reader Service • 570 



DIFFERENT TRACK 



New Products listings are based on information supplied in manufacturers' 
press releases. 80 Micro has not tested or reviewed these products and can- 
not guarantee any claims. 




Swvetware Inc. 's newest microcomputer s getting its licks in the per- 
gonal computer marketplace. 

Eat-Only Memory 

Sweet ware Inc.'s newest microcomputer gives users a 
taste o\' high technology. It's a state-of-the an keyboard 
and monitor, constructed entirely of gourmet milk 
chocolate. 

The complete system weighs in at 1.2 lbs.— truly port- 
able. The chocolate keyboard and monitor are $16.95. 
A '/: lb. package of two Eat-Only disks is $1 1 .95 (add S2 
postage per item). 

For more information contact Sweetware Inc.. 516 
Shelburne Road, S. Burlington, VT 05401, 802-862-6939. 

Reader Service *^ 569 





New Products Index 




Reader Service 




Number 


Company 


Page 


562 


Anchor Automation 


174 


555 


A.R.M.S. 


168 


570 


Clinical Reference Systems 


176 


560 


Dell Publishing Co. Inc. 


171 


557 


Dynacomp 


168 


561 


Fujitsu America Inc. 


172 


558 


Good Software Corp. 


172 


566 


InovionCorp. 


170 


564 


Institute for Scientific Analysis Inc. 


170 


568 


Lifetree Software Inc. 


172 


552 


Micro Projects Engineering Inc. 


166 


551 


Quick Label Systems Inc. 


171 


553 


Seal Software 


166 


563 


Smith-Corona 


166 


559 


Soho Corp. 


170 


571 


Software Publishing Corp. 


176 


569 


Sweetware Inc. 


176 


554 


Tab Books Inc. 


166 


556 


Tandy Corp. /Radio Shack 


166 


565 


Tandy Corp. /Radio Shack 


174 


567 


Taxbyte Inc. 


168 



176 • 80 Micro, January 1985 



T/Maker 

Integrated Software. 

Simplet Powerful 

Well Liked. 




"The program is a 
pleasure to use. . . 
[it] is well imple- 
mented, well docu- 
mented, and is quick 
in operation. It de- 
serves an AA rating." 
-F.M. Remley, 7/83 



InfoWorld 

TIM Nru>Mi>erMv toi Miiiiuarnpurri Um»i 

"T/Maker is a superb product! I have yet to 
see anything that comes close to its level of 
system integration, overall ease of use 
and general sophistication.' 

-Tim Dancliuk. 7/11/83 



Performance 
Documentation 
Ease of Use 
Error Handling 



J 



"...if you regularly 
prepare documents 
combining text, 
charts, and lists, 
...if you belong to 
an organization 
that uses several different kinds ot 
microcomputers ... if you want to 
reduce the training burden and 
improve the capability of sharing 
files... T/Maker can become the 
key program in your software 
library." 

-Frank J Dcrflcr. It, 4/84 



J 



INIERFACEAGE Magaz.m 

"After using T/Maker for some time, 
my reaction is that this program 
accomplishes its job simply and 
without effort." 

-Michael Heck 3/84 



Everything in ONE 
Program. 

Available for Kaypro,TRS-80 Model II, 4/4P, 
12, 16 (requires CP/M) 
Also available for IBM PC, TANDY 2000, 
Tl PRO, DEC Rainbow, requires 128K. 

Suggested Retail: $450 

Ask your local Radio Shack Center for more 
information or call: 
T/Maker Company 
2115 Landings Drive 
Mountain View, CA 94043 

415 962-0195 



POPULAR. 



COMPUTING 

"T/Maker is an excellent choice . . . Unlike the other 
(integrated) programs, it is available for the vast 
number of 8-bit computers running the CP'M 
operating system as well as for the more powerful 
16-bit computers." 

-Michael J Miller, 12/83 



f f Integrated Software 

Word Processing 
Spread Sheet Analysis 
Relational Data Base Mangement 
Spelling Checker 
Bar Chart Graphics 
Plus On Line Help 



C 1984, t/Maker Company 

PeeSngs II quote from 'T/Moker III. V4N7, C 1984. Peelings II Inc repnnted by permission, oil nghrs revved IntoWorid qoole from ' T/ Moke' "I. A General Purpose CP/M Program" , C 1984 InfoWortd. reprinted 

by permission, a" "ghts reserved PC Moganne quote from Prepore to meet Your T/Moker , V3N7 ? 1984. PC Communications, Corp.. reprinted by permission. oH rights reserved. Popular Computing quote from 

T/Maker Offers a Different Approach ", 12/83. C Byte Pubkohons, Int reprinted by permissKKi. oil rights reserved Interface Age quote from T/Makec III. integration ot a Modest Price", V9N3. C 1984. Interface 

Age Mogazine. Inc.. reprinted by permission, all rights reserved Reponis available on request 



Introducing the Most Powerful 
Business Software Ever! 

TRS-80" (Model I, II, III, or 1 6) • APPLE™ • IBM "• OSBORNE" • CPM". KAYPRO" 



**** 



,\^ xX 
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FREE--TRS-80 Mod I. Ill & 4 
programs supplied on DosPlus 
(minimum system) Complete 
DosPlus also available. 



ThevERSABusiNESS™ Series 



tach VERSABusiNESS module can be 
or can be linked in any combination to form 

Vf KSAReCEIVABLES • $99.95 

nmpletc menu-drKi ihle. invoicing, and 

keeps track of all ii . i.»ied to who 

IV money, aiid can pi n .tic billing (or past I 

Ices, and summary 

1 INVENTORY". 

VeRSAPaYABI I $99.95 

?ed payables, keeping you 
in touch with all mfoi , w much money your company owes, and to 

■ i on each vendor, prints checks 
■ 
-n even let your computer automatically select 
whicl 

Vl RSAPAYROLL " $99.95 

VERSaPaYF • r- , powerful and •,, use payroll system that 

formation. Complete employee records 
necessary i ■-ormed automatically, with 

; ;>roval. A payroll tan be run totally, automati- 
cally, or ihe operator can intervene to prevent a check from being printed, or I 
information on it. II ils mav be posted to the VFRSALEriGER II" system. 

VERSAllNVENTORY " $99.95 

rial gives you instanr i 

an any item VERSA INVENTORY" A all information related to what 

• ek, on backorder, el <s and pricing data, alerts 

en an item falls below a preset reorder point, and allows y< i pnnt 

. or to nnk with the V • ' system. VtRSAl • ;,nnts 

a " ,1€t, - ! ' items below reorder point, inventory value re 

ports, period jnd year-to-date salt' r» e lists, inventory checkl«l 

•CQMPJTRQNICS; 

50 N. PASCACK ROAD, SPRING VALLEY, NY. 10977 



purchased and used independently, 

a complete, coordinated business system. 

VERSALEDGER II - $149.95 

VERSaLEOGERIT" is a complete accounting system that grows as your business 
grows. VlksaIj-DGER II'* can be used as a simple personal checkbook register, 
expanded to a small business bookkeeping system or developed into a large 
corporate general ledger system without any additional software. 

• VersaLedger II'" gives you almost unlimited storage capacity 

(300 to 10.000 entries per month, depending on the system), 

• stores all check and general ledger information fore. . 

• prints tractor feed checks. 

• handles multiple checkbooks and general ledgers, 

• prints 17 customized accounting reports including check registers, 
balance sheets, income statements, transaction reports, account 
listings, etc. 

VERSA LFlXiFR If" comes with a professionally written 160 page manual de 
signed for first time users. The VersaLedger II*" manual will help you become 
quickly familiar with Versa Ledger IP", using complete sample data files 
supplied on diskette and more than 50 pages of sample printouts. 



SATISFACTION GUARANTEED! 



K.ryVTRSABI SlNI SS ' 



Al. UP M '\im-c! C.mpu 
(MBASIC CM BASIC 80i 



,lpei 



Mjn-d 



, VFRSARUSIMHS-- 
ny VFRSABt SINIWr-... 

has* ol that n 



• ! 



To Order: 

Write or call Toll-free (800) 431-2818 
(N.Y.S. residents call 914-425-1535) 

* add $3 lor shipping in UPS areas 

• add S4 lor C O D v. 



* acid %S to CANADA or MEXICO 

* add proper postage i 



DEALER INQUIRIES WELCOME 



nd sp« iIk alums IHlfljCTl I" ."hang* Dv.iwry *ubl«i 







